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SEQ 0001 


-REM_ 


PRODUCT CODE: AC-F169C-MC 

PRODUCT NAME: CROTACO DTO7 UNIBUS SW DIAG 
PRODUCT DATE: 1 MAY 1985 

MAINTAINER: CSS/NSG NETWORKS SYSTEMS GROUP 


THIS SOFTWARE IS FURNISHED UNDER A LINSCE AND MAY BE 
USED AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF 
SUCH LICENSE AND WITH THE INCLUSION OF THE ABOVE 
COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES 
THEROF, MAY NOT BE PROVIDED OR OTHERWISE MADE 
AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND 
OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED. 


THE INFORMATION IN THE SOFTWARE IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBLITY FOR THE USE OF OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT 
COPORATION: 

DEC DECUS DECTAPE 

— PoP UNIBUS 

VAX 


COPYRIGHT (C) 1979,1985 BY DIGITAL EQUIPMENT CORPORATION 
MAYNARD MASSACHUSETTS ALL RIGHTS RESERVED 
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TABLE OF CONTENTS 


BASIC DEFINITIONS 
MEMORY MANAGEMENT DEFINITIONS 


338 
345 


TRAP CATCHER 


STARTING ADDRESC(ES) 


ACT1i HOOKS 


APT PARAMETER BLOCK 


COMMON TAGS 


APT MAILBOX-ETABLE 
ERROR POINTER TABLE 


PROGRAM START 


INITIALIZE THE COMMON TAGS 
TYPE PROGRAM NAME 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


MULTIPORT TEST 


BIPORT TEST IN DTO3 MODE 


MANUAL INTERVENTION TEST 
END OF PASS ROUTINE 


USER ROUTINES 
TYPE ROUTINE 


APT COMMUNICATIONS ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 

TTY INPUT ROUTINE 

BINARY TO OCTAL CASCII) AND TYPE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPEOUT ROUTINE 

SCOPE HANDLER ROUTINE 

POWER DOWN AND UP ROUTINES 


TRAP DECODER 
TRAP TABLE 


RANDOM NUMBER GENERATOR ROUTINE 


ASCII MESSAGES 





SEQ 0002 
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SEQ 0003 


1.0 ABSTRACT: 


THIS DIAGNOSTIC IS DESIGNED TO TEST THE FUNCTIONS 
AND CAPABILITIES OF THE DTO7 UNIBUS SWITCH. THE DIAGNOSTIC 
IS DIVIDED INTO THREE MAJOR SECTIONS AS FOLLOWS: 


MONOPORT; THIS SECTION TESTS A SINGLE PORT WITHOUT INTER- 
ACTION WITH OTHER PORTS. 


MULTIPORT; THIS SECTION TESTS THE DTO7 PORT WITH THE OTHER 
PORTS IN THE SYSTEM. 
MANUAL INTERVENTION; THIS SECTION TESTS CERTAIN FUNCTIONS 
WHICH REQUIRE OPERATOR ASSISTANCE. 


NPR TEST; THIS TEST CHECKS OUT THE NPR LINE ON THE SWITCH BUS. 


NOTE:: 
THIS DIAGNOSTIC WAS ASSEMBLED USING THE FOLLOWING ASSEMBLE 
AND LINK COMMANDS ON A VAX/VMS SYSTEM 


oa ae CROTAC ,CRDTAC/-SP=SYSMAC .MLB/ML,CROTAC.P11 
MCR TK 

CROTAC .TSK/-HD/-MM,CROTAC/CR/-SP=CRDTAC. OBU 
PAR=GEN: 0: 376000 

STACK=0 

CORSIZ=16 


RAY BALDWIN - MODIFIED MULTIPORT SECTION (4/20/85) TO BE COMPATABLE 
WITH VAX DIAG. AND FACILITATE FOR THE 400+ MS 
LOCK OUT OF EXTERNAL INTERRUPTS AFTER BUS CONNECTS 


-MAIN. 
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2.0 REQUIREMENTS: 


2.1 EQUIPMENT 
POP 11-COMPUTER 
ASR-33 TELETYPE OR EQUIVALENT 
DTO7 PORT MODULE 
MANUAL CONTROL PANEL (OPTIONAL BUT NEEDED FOR MANUAL INTERVENTION TEST! ) 


UBE <UNIBUS EXERCISER> (OPTIONAL BUT NEEDED FOR NPR TEST) 


2.2 PROGRAM STORAGE 
PROGRAM REQUIRES 8 K WORDS OF MEMORY 


2.3 SOFTWARE 
ABSOLUTE LOADER OR OTHER INPUT MEDIUM 


SEQ 0004 
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SEQ 0005 
+ 3.0 SWITCH REGISTER ASSIGNMENTS: 
100 SWO8(1)=LOOP ON TEST IN SWR<7:0> 
4 SWO8(0)=DO ALL TESTS IN SEQUENCE 
103 SWO9(1)=LOOP ON ERROR 
2 SWO9(0)=CONTINUE ON ERROR 
106 SW10(1)=BELL ON ERROR 
a. SW10(0)=NO BELL ON ERROR 
1 
109 S$W11(1)*INHIBIT ITERATIONS 
on SW11(0)*ALLOW ITERATIONS 
112 SW13(1)=INHIBIT ERROR TYPEOUTS 
174 SW13(0)=ALLOW ERROR TYPEOUTS 
115 SW14(1)=LOOP ON TEST 
11 $W14(0)=DON’ T LOOP ON TEST 
11 
118 SW15(1)=HALT ON ERROR 
1H SW15(0)=CONTINUE ON ERROR 
1 
121 NOTE: 
122 COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A 
123 SOFTWARE SWITCH REGISTER LOCATED IN MEMORY AT LOCATION 
124 176 CALLED SWREG. THIS LOCATION CAN BE CHANGED EITHER 
125 MANUALLY OR BY TYPING THE CNTL+G KEYES TOGETHER 
126 THEN RESPONDING TO THE TERMINAL DIALOGUE. 


r— 
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SEQ 0006 


139 4.0 LOADING PROCEDURE: 

130 STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
131 SHOULD BE USED. 

132 IF THE PROGRAM RESIDES ON A MASS STORAGE DEVICE SUCH AS 
os MAGTAPE OR DISK REFER TO THE XXDP USER'S GUIDE. 

135 5.0 STARTING PROCEDURE: 

136 

137 

4 3.4 STARTING ADDRESSES 

oan 200.INPUT PARAMETERS AND ALLOWS TEST SELECTION 

142 5.2 STARTING SEQUENCES 

143 

144 

145 5.2.1 STARTING SEQUENCE UNDER XXDP(CHAIN),APT OR ACT 
146 

tf START AT ADDRESS 200 ONLY. (DEFAULT PARAMETERS) 
oH 3.2.2 NORMAL STARTING SEQUENCE 

150 

733 LOAD PROGRAM ACCORDING TO LOADING PROCEDURE 

1 

ea LOAD AND START ADDRESS 200 

1 

155 INPUT ACTUAL PARAMETERS AND SELECT TEST 

156 

oh 5.3 RESTART ADDRESSES 

158 

159 RESTART ADDRESSES ARE THE SAME AS STARTING ADDRESSES 

160 


—— 
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SEQ 0007 


4 6.0 PRELIMINARY OPERATIONS: 
16 
oa 6 .1 DEVICE ADDRESSES AND VECTOR ADDRESSES 
1 
166 THE STANDARD DEVICE ADDRESS IS 177420. 
167 THE STANDARD DEVICE VECTOR ADDRESS IS 350. 
ed THE STANDARD DEVICE PRIORITY LEVEL IS 7. 
hy 6 .2 DEVICE/OPTION SETUP 
171 
ite INSURE THAT THE DTO7(S) ARE IN PROGRAMMABLE MODE. 
174 6 .3 PRELIMINARY PROGRAMS NEEDED 
175 NONE 
176 
7. 7 0 OPERATIONAL PROCEDURES: 
1 
179 NORMAL OPERATION WOULD BE TO LOAD THIS PROGRAM, 
180 INSURE THAT ALL DTO7 PORTS ARE IN THE PROGRAMMABLE MODE, 
181 RUN THE MONOPORT TEST ON EACH PORT IN THE SYSTEM, THEN 
182 RUN THE MULTIPORT TEST ON ALL PORTS IN THE SYSTEM. 
183 IF YOU HAVE A MANUAL CONTROL PANEL, RUN THE MANUAL INTER- 
184 VENTION TEST.IF YOU HAVE UBE ON THE SWITCH BUS,RUN THE 
185 NPR TEST. 
186 THE PARAMETER INPUT ROUTINE IS TO BE USED WHEN- 
' 187 EVER YOU WISH TO INPUT OR CHANGE DIAGNOSTIC PARAMETERS 
188 INCLUDING DEVICE ADDRESS, VECTOR ADDRESS, INTERRUPT LEVEL, 
189 NUMBER AND I.0.¢@S OF OTHER PORTS TO BE TESTED. 
190 THE PARAMETER INPUT ROUTINE WILL BE ENTERED AUTOMATICALY 
191 FROM THE MULTIPORT TEST IF NO PARAMETERS HAVE BEEN ENTERED 
192 PREVIOUSLY. 
193 WHEN USING THE MULTIPORT SECTION, AFTER PARAMETERS 
194 HAVE BEEN ENTERED OR WHEN RESTARTING THE TEST, THE CPU 
195 WITH THE LOWEST NUMBERED DTO7 PORT MUST BE STARTED LAST. 
196 ; 


-— 
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8.0 
8.1 


8.2 


8.3 


8.4 


8.5 





ERRORS: 
MONOPORT SECTION ERRORS 


ALL ERRORS IN THE MONOPORT SECTION HAVE THE GENERAL FORMAT; 
ERROR PC,TEST#@,GOOD DATA,BAD DATA,BAD DATA ADDRESS. CONTROL 
OF ERROR PRINTOUT AND LOOPING IS BY THE SWITCH REGISTER OPTIONS. 


MULTIPORT SECTION ERRORS 


ERRORS IN THE MULTIPORT SECTION PRINT AN ERROR ID.@, A MESSAGE 
BRIEFLY DESCRIBING THE ERROR AND THE CSR CONTENTS. ALL ERRORS 

IN THIS SECTION ARE FATAL AND, THEREFORE, THE TEST MUST BE RESTARTED 
ON ERROR. THERE IS NO ERROR LOOPING AND ERROR PRINTOUT IS AUTO- 
MATIC. ERROR ID.@S 1A THRU SA IDENTIFY ERRORS IN THE DTO7 MODE 
MULTIPORT TEST AND ERROR ID.@S 6 THRU 16 IDENTIFY ERRORS IN THE 
DTO3 MODE MULTIPORT TEST. 


MANUAL INTERVENTION SECTION ERRORS 


ERRORS IN THIS SECTION PRINT AN ERROR ID.#, A BRIEF MESSAGE DES- 
CRIBING THE ERROR, AND THE CSR CONTENTS AT ERROR TIME. THERE IS 
NO ERROR LOOPING AND ERROR PRINTOUT IS AUTOMATIC; HOWEVER, 
PRESSING CONTINUE, AFTER ERROR, WILL CAUSE THE FAILING SUBTEST TO 
REPEAT EXECUTION. 


NPR TEST 


an oe THIS TEST PRINT A BRIEF MESSAGE DESCRIBING THE ERROR AND 
E . 


MISCELLANEOUS ERRORS 


THERE ARE TWO SUBROUTINES USED TO DETERMINE DEVICE MODE AND DEVICE 
TIMING. ERRORS IN THESE ROUTINES ARE SELF-EXPLANATORY AND ARE 

FATAL. THESE ERRORS USUALLY OCCUR BECAUSE ONE OF THE PORTS 
WAS LEFT IN THE MANUAL MODE. 





SEQ 0008 
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a 9.0 TEST DESCRIPTIONS: 

238 

=. 9.1 MONOPORT TESTS 

241 TEST1. TEST POST-RESET BIT PATTERN IN CSR. 

242 THIS TEST CHECKS THE CONTROL STATUS REGISTER CONTENTS 
243 AFTER RESET TO INSURE THAT ANY RESET-CLEARABLE BITS ARE 
24g CLEARED. 

245 TEST2. TEST READ/WRITE BITS IN CSR. 

246 THIS TEST CHECKS THAT BITS 0 AND 6 CAN BE SET AND CLEARED 
247 IN THE CSR. 

248 TEST3. TEST BYTE ACCESS IN CSR. 

249 THIS TEST CHECKS THE BYTE ACCESS CAPABILITY OF THE CSR. 
250 TEST4. CONNECT TEST WITHOUT INTERUPT ENABLE. 

251 THIS TEST VERIFIES THE PROPER OPERATION OF THE CONNECT 
252 PROCESS WITH INTERUPTS DISABLED. 

253 TESTS. RELEASE TEST WITHOUT INTERUPT ENABLE. 

254 THIS TEST VERIFIES THE PROPER OPERATION OF THE RELEASE 
255 PROCESS WITH INTERUPTS DISABLED. 

256 TEST6. CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE. 

257 THIS TEST CHECKS THE PROPER OPERATION OF THE DEVICE 

258 WHEN THE CONNECTION PROCESS CANNOT CONNECT TO THE SHARED 
259 BUS WITHOUT INTERUPTS ENABLED. 

260 TEST7. RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE. 
261 THIS TEST CHECKS THAT THE DEVICE WILL RELEASE THE SHARED 
262 BUS WHEN UNIBUS MASTERSHIP CANNOT BE OBTAINED AND 

263 INTERUPTS ARE DISABLED. 

264 TEST10. CONNECT TEST 

265 THIS TEST VERIFIES THE CONNECT PROCESS UNDER INTERUPT CONTROL. 
266 TEST11. RELEASE T°ST 

267 THIS TEST VERIFIES THE RELEASE PROCESS UNDER INTERUPT CONTROL. 
268 TEST12. CONNECT FAILURE TEST 

269 THIS TEST VERIFIES THE PROPER OPERATION OF THE CONNECT 
270 PROCESS, UNDER INTERUPT CONTROL ,WHEN THE DEVICE CANNOT 
271 OBTAIN BUS MASTERSHIP. 

272 TEST13. RELEASE TEST WITHOUT BUS MASTERSHIP 

273 THIS TEST VERIFIES THE THE PROPER OPERATION OF THE RELEASE 
274 PROCESS, UNDER INTERUPT CONTROL, WHEN THE DEVICE CANNOT 
275 OBTAIN BUS MASTERSHIP. 

276 TEST14, RESET (RST) TEST 

277 THIS TEST CHECKS THE OPERATION OF THE DEVICE RESET BIT 
278 (RST) IF AN EXTERNAL DEVICE REGISTER HAS BEEN INSERTED 
279 IN THE PARAMETER BLOCK. 

280 TESTiS. RESET HOLD CHLD) TEST 

281 THIS TEST CHECKS THAT THE HLD BIT WILL HOLD THE SHARED 
282 BUS DURING AND AFTER A BUS RESET. 

283 TEST16. HI-SPEED SWITCHING TEST 

284 THIS TEST CAUSES THE DEVICE TO CONNECT AND DISCONNECT 
285 AT HIGH SPEED 1000 TIMES WHILE CHECKING FOR ERRORS. 

286 TEST17. RESET-IN-NEUTRAL TEST 

2e7 THIS TEST CHECKS FOR RESET-IN-NEUTRAL IF AN EXTERNAL 

288 DEVICE REGISTER IS PRESENT AND PRINTS OUT THE RESULT ON 
289 THE FIRST PASS. 


-— 





OS A SSR SS PR SAE SN 











-MAIN, 


r 


MACRO M1200 24-MAY-85 11:37 PAGE 10 


9.2 


9.3 


9.4 





MULTIPORT TEST 


THE MULTIPORT TEST IS ACTUALLY TWO SEPARATE TESTS: ONE FOR 
THE DTO7 IN DTO3 MODE AND ONE FOR THE DTO7 IN DTO7 MODE. IN DTO7 
MODE THE PORT I.D.@S OF ALL THE PORTS TO BE TESTED ARE ARRANGED 
IN ASCENDING NUMERICAL ORDER THEN A MENU OF FUNCTIONS TO BE 
PERFORMED IS CREATED. EACH DTO7 PORT WILL HAVE A TURN AS MASTER 
WHILE THE OTHER PORTS ARE SLAVES. THERE ARE TWO MASTER FUNCTIONS 
AND THREE SLAVE FUNCTIONS; THESE BEING: FUNCTION1 (MASTER) DETECT 
SELECTED SLAVE REQUEST AND REJECT IT, FUNCTION2 (MASTER) DETECT 
SELECTED SLAVE REQUEST AND IGNORE IT, FUNCTIONS (SLAVE) SEND REQUEST 
AND EXPECT REJECTION, FUNCTION4 (SLAVE) SEND REQUEST AND EXPECT 
CONNECTION, AND FUNCTIONS (SLAVE) OBSERVE REQUEST INDICATORS. 
IN DTO3 MODE BOTH DTO7S HAVE A TURN AS MASTER THEN AS SLAVE. 
THERE ARE TWO MASTER FUNCTIONS AND TWO SLAVE FUNCTIONS; 
THESE BEING: 1. RECEIVE REQUEST AND RELEASE THE SHARED BUS, 
2. SEND REQUEST AND EXPECT REJECTION, 3. SEND REQUEST AND EXPECT 
CONNECTION, AND 4. DETECT REQUEST AND REJECT IT. 


MANUAL INTERVENTION TEST 

THE MANUAL INTERVENTION TEST VERIFIES THE PROPER OPERATION 
OF CERTAIN DEVICE FEATURES THAT REQUIRE MANUAL ASSISTANCE TO TEST. 
THIS TEST ALSO REQUIRES THE OPTIONAL MANUAL CONTROL PANEL FOR 
PROPER OPERATION. THE FEATURES TESTED ARE: MANUAL MODE, 
PORT POWER OK AND SWITCHED BUS POWER FAIL. 
NPR TEST 


THE NPR TEST CHECKS OUT THE NPR LINE ON THE SWITCH BUS. 






SEQ 0010 
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000000 


<NLIST MC,MD,CND,ME 
.LIST SEQ,LOC,BIN 


;.-ENABL ABS 
-ASECT 


-MCALL 
-MCALL 
-MCALL 
-MCALL 


$SWR=167400 
$TN=1 


ABASE=177420 
AVECT1=160350 
GOOD =$GDDAT 
BAD= $BDDAT 
REQ=BITO 
BADA=$BDADR 





-HEADER, .SETUP, .$TRAP,.$RDOCT,.KT11,.$RAND 

TYPNAM, TYPOCS, . $POWER, .$40CAT, .$TYPOCT, .EQUAT, . $CMTAG 
-SWRHI,. $EOP, . SERROR,. S$ERRTYP, .$TYPDEC, . $SCOPE 

- $READ,. $TYPE, .$ACT11,.$APTHOR,.$APTBLS, . $APTYPE 


sBASE DTO7 BUS ADDRESS EQUATE 
sBASE DTO7 PRIORITY & VECTOR ADDRESS EQUATE 






SEQ 0011 
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ACT11 HOOKS 


349 001000 











APT MAILBOX -ETABLE 


001322 
001324 
091326 
001330 
001332 


SS SR I SR A ST A SNE EE EY RS RS ER a AE SNS AER TE A Es 
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$D0W12: . 
$00w13: . 
sO0wi4: . 
sO0wiS: . 


SETEND: 


ADDW12 
ADOW13 
ADOW14 
ADOW15 


ssDEVICE DESCRIPTOR WORDO12 
ssDEVICE DESCRIPTOR WORDO13 
ssDEVICE DESCRIPTOR WORDO14 
ssDEVICE DESCRIPTOR WORDO15 


SEQ 0014 
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ERROR POINTER TABLE 


353 061332 033332 
354 001334 034563 
355 001336 035134 
35€ 001340 000000 


358 001342 033400 
359 001344 034563 
360 001346 035134 
361 001350 000000 


363 001352 033437 
364 001354 034563 
365 0C1356 035134 
366 001360 000000 


368 001362 033473 
369 001364 034563 
370 001366 035134 
371 001370 000000 


373 001372 033525 
374 001374 034563 
375 001376 035134 
376 001400 000000 


378 001402 033605 
379 001404 034563 
380 001406 035134 
381 001410 000000 


383 001412 033630 
384 001414 034563 
385 001416 035134 
386 001420 000000 


388 001422 033662 
389 001424 034563 
390 001426 035134 
391 001430 000000 


393 001432 033710 
394 001434 034563 
395 001436 035134 
396 001440 000000 


-SBTTL ERROR POINTER TABLE 
s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
s#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 


s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


s*NOTE1L: 
s@NOTE2: 


sERROR@10 
EM10 


OH1 
OT1 


0 
sERROR@11 


0 
sERRORG12 


ssPOINTS TO THE ERROR MESSAGE 
ssPOINTS TO THE DATA HEADER 
ssPOINTS TO THE DATA 

:sPOINTS TO THE DATA FORMAT 


sPOST-RESET CONDITIONS NOT MET IN CSR 


sREAD/WRITE BIT FAILURE IN CSR 


sBYTE ACCESS FAILURE IN CSR 


sERROR IN CONNECT PROCESS 


sINTERUPT DETECTED WITH INTERUPT ENABLE CLEARED 


sCOULD NOT CONNECT 


sERROR IN RELEASE PROCESS 


sNO INTERRUPT DETECTED 


sINTERRUPT AT WRONG PRIORITY 


re 


SEQ 0015 





ce 
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ERROR POINTER TABLE SEQ 0016 
398 001442 033744 EM12 sCONNECT CONDITION FAILURE 
399 001444 034563 OH1 
400 001446 035134 OT1 
401 001450 000000 0 
402 sERRORO13 
403 001452 033777 EM13 sERROR IN CONNECT FAILURE PROCESS 
404 001454 034563 DH1 
605 001456 035134 OT1 
406 001460 000000 0 
407 sERRORO14 
408 001462 034041 EM14 sERROR IN RELEASE TEST W/O BUSS MASTERSHIP 
409 001464 034563 OH1 
410 001466 035134 OT1 
411 001470 000000 0 
412 sERROR@1S 
413 001472 034120 EM15 sRELEASE CONDITIONS NOT MET 
414 001474 034563 DH1 
415 001476 035134 OT1 
416 001500 000000 
417 sERRORO16 
418 001502 034154 EM16 ;TMO BIT NOT SET 
419 001504 034563 DH1 
420 001506 035134 OT1 
421 001510 000000 0 
422 sERROR@17 
423 001512 034175 EM17 ;sCOULDN‘T READ/WRITE EXTERNAL DEVICE 
424 001514 034626 DH2 
425 001516 035150 DT2 
426 001520 000000 0 
427 sERRORG20 
428 001522 034242 EM20 sRESET HOLD (LD) DIDN'T DISABLE RESET 
429 001524 034563 DH1 
430 001526 035134 OT1 
431 001530 000000 0 
432 sERROR#21 
433 001532 034311 EM21 sRESET (RST) DION’ T WORK 
434 001534 034677 DH3 
435 001536 035164 DT3 
436 001540 000000 0 
437 sERRORG22 
438 001542 034342 EM22 sRESET-IN-NEUTRAL OPERATION HAS CHANGED 
439 001544 034760 DOH4 
440 001546 035150 OT2 
441 001550 000000 0 
442 sERROR+23 
443 001552 027252 EM23 sERROR:NPR DATO NOT DONE 
444 001554 035052 OHS 
445 001556 035176 OT4 
446 001560 000000 
447 sERROR+24 
448 001562 027302 EM24 sERROR:NPR DID NOT SET RDY 
449 001564 035052 DHS 
450 001566 035176 OT4 
451 001570 000000 0 
4S2 sERROR +25 
453 001572 027334 EM25 sERROR:UBE DID NOT INTERRUPT WHEN NPR FINISHED 
454 001574 035065 DH6 








-MAIN. 


—— 


455 001576 
456 001600 


458 001602 
459 001604 
460 001606 
461 001610 


463 001612 
464 001614 
465 001616 
466 001620 


035202 
000000 


027412 





MACRO M1200 24-MAY-85 11:37 PACE 14-2 
ERROR POINTER TABLE 


OTS 


0 
sERROR +26 
EM26 sTWO LOC WRITTEN WHEN ONE NPR AND INT ON DONE ENABLE 


0 
sERROR+27 
EM27 


OHS 
DT4 
0 


sERROR:DEVICE DOESN’ T EXIST ON SWITCH BUS 





SEQ 0017 
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ERROR POINTER TABLE 


177420 


000350 
000352 


000340 








SEQ 0018 


DTO7 BUS REGISTER ADDRESS POINTERS 


sCOMMAND/STATUS REGISTER 


DTO7 VECTOR ADDRESS POINTERS 


: 
; 
; 
CSR: 177420 
; 
; 
; 


VECO: 350 sNORMAL INTERRUPT VECTOR 
vEC2: 352 ; 

: 

; DOTO7 DEVICE LEVEL 

; 

PRI: 340 


A 
TSTNUM: 0 


COMMAND STATUS REGISTER BIT ASSIGNMENTS 
COMMON PROGRAM LOCATION(S) 


sCONTAINS TEST NUMBER ON ERROR 


5 fF SRRAAEREASEAAARAREEASAKEREREAAESAERASEESARAAEREAAEEARERALELELALE 


sPROGRAM PARAMETER BLOCK 
DTO3: 0000 


DEVAD: 0000 
DEVRW: 000 
DEVRC: 0000 
PORTNO: -1 
EXPRT1: -1 
EXPRT2: -1 
EXPRT3: -1 
EXPEND: -1 
EXPTCT: 0 
SEQ: -1 
<i 
-1 
-1 
-1 
SEQPTR: SEQ 


NEXENT: SEQ+2 
MENU: -BLKW 9. 


CURF UN: 


iw] 
c¢ 
za 
H 
o 
oooo 


-BLKW 5 


zx 
é 
pat 
o:rooco 
- 


sDTO3/DTO7 MODE INDIACATER,O=DTO7 
sEXTERNAL DEVICE REGISTER ADDRESS 
sREAD/WRITE BITS IN ABOVE 

sMASK OF RESET CLEARABLE BITS IN ABOVE 
sTHIS PORT'S ID@ 

sEXTERNAL PORT ID (-1=NO PORT) 

; . ” ” 

TABLE TERMINATOR 

3# OF EXTERNAL PORTS 

; SEQUENCER 


sSEQUENCER POINTER 

sNEXT ENTRY POINTER 
sMENU STORAGE 

sMENU TERMINATOR 
sCURRANT FUNCTION 
sCURRANT SLAVE ID 
sSUBPASS COUNT 
sCONVERTED SLAVE ID 

s TEMPORARY STORAGE 
sMASTER/SLAVE INDIACATOR 


sRESET-IN-NEUTRAL CONDITION FLAG 
sTEST RESET IN NEUTRAL FLAG 
sUSING PARIN FLAG O=NOT USING 


—— 
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START 


001762 


001762 
001766 
001770 
001774 
001776 





012737 
012737 
012737 


012767 


013746 
012737 
012767 


001403 
012767 


012737 
005000 
016700 
042700 
000300 
010067 


016767 


001100 
001140 
001100 


032446 
000340 
031762 
000340 
033146 
000340 
032740 
000340 
017276 
177076 
177074 
000001 
002106 
002114 


000004 
002162 
177570 
177570 
177777 


002170 
000176 
000174 
000004 
177000 
000200 
001230 
026222 


177010 
000777 


177350 


176776 


177007 
176772 
176766 


000004 
176776 
176772 
176762 


176742 
176736 


177005 
176706 
000004 


177334 


START: 
-SBTTL 


ssCLEAR THE COMMON TAGS ($CMTAG) AREA 


MOV 
omesiiae —y A FEW VECTORS 


MOV 
3sSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT is 
3 sEQUAL a A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 


67$: 


SETUP1: 


Utes oo a 


= © « 





ETUP2: 













SEQ 0019 
-SBTTL PROGRAM START 
INITIALIZE THE COMMON TAGS 


MOV @$CMTAG,R6 ssFIRST LOCATION TO BE CLEARED 
CLR CR6)+ 3;CLEAR MEMORY LOCATION 

CMP @SWR,.R6 ;;D0NE? 

BNE .-6 ;;LOOP BACK IF NO 


STACK, SP ssSETUP THE STACK POINTER 


#$SCOPE,@@IOTVEC ;;I0T is ee FOR SCOPE ROUTINE 
MOV #340 ,BOLOTVEC+2 ;;LEVEL 
MOV @SERROR, QGEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
MOV #340, QPEMTVEC+2 ;;LEVEL 7 
MOV @$TRAP -Q@TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
MOV #340 , B@TRAPVEC+2;LEVEL 7 
MOV @$PWRON, B@PWRVEC 3;POWER FAILURE VECTOR 
MOV €340 ,AG@FWRVEC+2 ;;LEVEL 7 
MOV $ENDCT, $EOPCT 3;SETUP END-OF -PROGRAM COUNTER 


CLR $TIMES ssINITIALIZE NUMBER OF ITERATIONS 

CLR SESCAPE 3sCLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, $ERMAX ssALLOW ONE ERROR PER TEST 

MOV #.,$LPADR ss INITIALIZE THE LOOP "senate FOR SCOPE 


@., $LPERR 3s;SETUP THE ERROR LOOP ADDRES 


QERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV 064$ ,QERRVEC 3sSET UP ERROR VECTOR 


MOV @DSWR, SWR ssSETUP FOR A HARDWARE SWICH REGISTER 

MOV @DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 

cMP #-1,9SWR ssTRY TO REFERENCE HARDWARE SWR 

BNE 66$ +sBRANCH IF NO TIMEOUT TRAP OCCURRED 
3sAND THE HARDWARE SWR IS NOT = -1 

BR 65$ +sBRANCH IF NO TIMEOUT 

tn #65$ ,( SP) 3sSET UP FOR TRAP RETURN 

MOV @SWREG , SWR +sPOINT TO SOFTWARE SWR 


MOV @DISPREG ,DISPLAY 
MOV (SP)+,@@ERRVEC ;;RESTORE ERROR VECTOR 


CLR $PASS 3sCLEAR PASS COUNT 
BITB @APTSIZE,$ENVM ;; TEST USER SIZE UNDER APT 
BEQ 67$ +sYES,USE NON-APT SWITCH 


MOV @$SWREG, SWR +3NO,USE APT SWITCH REGISTER 
MOV + cai eames sPOINT TO TRAP ROUTINE 


CLR 

MOV $VECT1,RO sGET PRIORITY LEVEL 
BIC #777,RO sCLEAR UNWANTED BITS 
SWAB RO 


MOV RO,PRI ;SAVE DEVICE LEVEL 

NOW SETUP BUS ADDRESS VALUES 

MOV $BASE,CSR sSTORE BUS ADDRESS 
NOW SETUP VECTOR ADDRESSES 





-MAIN. 
INITIALIZE THE COMMON TAGS 


rc 


538 
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002266 012700 001624 
002272 016701 176760 
002276 042701 177000 


002304 062701 000002 
002310 022700 001630 


002316 005737 000042 


SETUPS: 


-SBTTL 


MOV #VECO,RO 
MOV $VECT1,RI 
BIC #177000,R1 
MOV R1,CRO)+ 
ADD #2,R1 

CMP @VEC2+2,R0 
BNE SETUPS 

TST 9042 


i$ 
TYPE PROGRAM NAME 


sSETUP VECTOR POINTER 

sGET BASE VECTOR ADDR 
sCLEAR UNWANTED BITS 

sPUT ADDRS 

sINCR.TO NEXT LOC. 

sDONE ALL LOCATIONS? 

;BR,IF NOT DONE 

sTEST CHAIN MODE UNDER XXO0P 
sBR,IF CHAIN MODE 


3sTYPE THE NAME OF THE PROGRAM IF FIRST PASS 


002324 005227 177777 
002332 022737 021416 000042 
002342 104401 002410 
002346 005737 000042 
002354 126727 176646 000001 
002364 026727 176550 000176 


- SBTTL 


002400 112767 000001 176526 66%: 


002406 67$: 
002406 000420 

33658: 
002450 64$: 
002450 005767 177304 1$: 


002456 012777 022600 177140 
002464 012777 000340 177134 
002472 005077 177124 


002512 017767 177104 177232 
002520 042767 173777 177224 


002532 012737 000002 000512 
002540 012737 000002 000516 
002546 012737 000002 000522 
002554 012737 000002 000526 
002566 012767 002676 000076 ROUT1: 
002600 012767 007556 000064 ROUT2: 


002612 012767 000001 177140 ROUTS: 
002620 012767 024534 000044 


002632 000167 177124 
002636 012767 002650 000026 ROUT4: 


RESTRT: 


INC @-1 
64$ 
CMP oe 


TYPE 

ST 

BNE 66$ 

CMPB SENV, #1 
BEQ 


66$ 
CMP SWR, @SWREG 
67$ 


8 67% 
MOVB #1, $AUTOB 


TST USEPAR 

BNE RESTRT 

MOV #00PS, VECO 

MOV #340 ,avVEC2 
acsR 


CLR KONST 

MOV @CSR ,KONST 
BIC #173777, KONST 
MOV @STACK ,SP 
MOV #2 ,80512 

MOV #2 ,80516 

MOV #2 ,80522 

MOV #2 ,80526 


ROUTE 
MOV re 


JMP START 
MOV @MULPRT , ROUTE 
JMP START 


MOV #1,USEPAR 

MOV @PARIN, ROUTE 
CLR PARFLG 
JMP START 
MOV #1$, ROUTE 





sCLEAR PARAMETER FLAG 


ssFIRST TIME? 

;s;BRANCH IF NO 

3sACT-11? 

:;BRANCH IF YES 
33TYPE ASCIZ STRING 


.65$ 
oar VALUE FOR SOFTWARE SWITCH REGISTER 


ssARE WE RUNNING UNDER XXDP/ACT? 
ssBRANCH IF YES 

ssARE WE RUNNING UNDER APT? 
+;BRANCH IF YES 

ssSOFTWARE SWITCH REG SELECTED? 
+:BRANCH IF NO 

3sGET SOFT-SWR SETTINGS 


ssSET AUTO-MODE INDICATOR 
3sGET OVER THE ASCIZ 


64$ 
-ASCIZ <CRLF>/MAINDEC - 11- CROTAC ODTO7 TEST/<CRLF> 


sPARIN IN USE? 


sBR=YES; SKIP OVER DEVICE ADDRESS DEPENDENT CODE 
sLOAD UNEXPECTED INTERUPT RETURN 


sSET PRIORITY 7 ON INTERUPT 
sDETERMINE STATUS OF PWR OK BIT 
sRESET THE BUSS 


sSAVE CSR 
sMASK EVERYTHING EXCEPT PWR OK 
sRESET STACK POINTER 
sPUT RTI IN UBE VECTORS 
;DITTO 

;DITTO 

sDITTO 


:GO DO IT 

sSET UP FOR MONOPORT 
sSET UP FOR MULTIPORT 
SET FLAG 

;SET RETURN 


sSET UP RETURN 








SEQ 0020 





-MAIN. 


-— 


$75 


600 
601 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


002644 


000167 
012767 
004767 


016746 
104402 
004767 


177112 
015056 
020434 
020066 
012164 


023474 
023276 


021074 


003020 


176572 
016460 





JMP START 

000014 18: MOV @MANIN , ROUTE sSET UP FOR MANUAL INTERVENTION TEST 
JSR PC ,OTIME sGO GET DEVICE TIMING 
JSR PC ,DMODE :GO GET DEVICE MODE 


JMP MANIN 
ROUTE: MONPRT sMAIN TEST DISPATCHER 
TEMP2: O 
MONPRT : 
JSR PC ,CNTLC sIS IT CONTROL C ? 
TST PARFLG 
BMI i$ 
JSR PC ,GETADR 
1$: JSR PC ,DMODE 
JSR PC ,OTIME 
TST 8642 sXXDP CHAINMODE OR APT/ACT? 
BNE TST1 sSKIP PRINTOUT IF ANYONE OF THE ABOVE 
TST $PASS 3:0 PASSES? 
BNE 3$ ;BR=NO 
TST DTO3 sWHAT MODE IS DEVICE? 
BEQ 2$ :BR =DTO7 MODE 
TYPE 65$ 3s TYPE ASCIZ STRING 
BR 64$ +;GET OVER THE ASCIZ 
nt -ASCIZ <200>/THIS DTO7 IS IN DTO3 MODE./ 
$: 
- BR 3$ ;GO START TESTS 
TYPE .67$ 3: TYPE ASCIZ STRING 
R 66$ +:GET OVER THE ASCIZ 


B 
eres -ASCIZ <200>/THIS DTO7 IS PORT@ / 


MOV PORTNO, -(SP) +sSAVE PORTNO FOR TYPEQUT 
TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
3$: JSR PC ,WAIT10 sWAIT ONE SECOND 





SEQ 0021 
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SEQ 0022 
603 -SBTTL 
604 
605 § 5 RORREREEEE RE EREEEE ES OOOO OE EE OEE EE OEOE ODED EEEREE DEED EEEEEE EES 
s#TEST 1 TEST POST-RESET BIT PATTERN IN CSR.IDX1 
j RRRREEEEEEEEEE SEEDERS EEEEED ES OOOEEE EE EEEEEEEEEEERESD EE EEE EREES 
003060 000004 TSTi: SCOPE 
003062 012767 000062 176102 MOV #50. ,$TIMES 3300 50. ITERATIONS 
406 003070 004767 023302 JSR PC ,CNTLC sIS IT CONTROL C? 
607 003074 012767 000340 174674 MOV #340 ,PSW sRISE PRIORITY 
608 003102 012777 000101 176512 MOV #101,8CSR sSET SOME BITS 
609 003110 016767 176636 176006 MOV KONST , GOOD sSTORE GOOD DATA 
610 003116 000005 RESET sINIT. BUS 
611 003120 005200 1$: INC RO sDELAY AWHILE 
612 003122 001376 BNE 1$ 
613 003124 017767 176472 175774 MOV acsR ,BAD sSTORE CONTENTS OF CSR AND 
614 003132 016767 176464 175762 MOV CSR,BADA sADDRESS 
615 003140 026767 175760 175760 CMP GOOD ,BAD s COMPARE 
616 003146 001401 BEQ 2s 3BR IF OK 
617 003150 104001 ERROR+1 sPOST-RESET CONDITIONS NOT MET IN CSR 
618 003152 2s: sGO TO NEXT TEST 


—— 








-MAIN. 


620 


000004 
012767 
004767 


012767 


r 


175570 


176404 
003342 
175542 
176232 
175526 


176010 


174602 
175716 


175570 


175554 
175532 
176236 
175534 
175526 
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T2 TEST READ/WRITE BITS IN CSR. IDX2 


$f SSSRSEKSAS SESS AKAEESRSEASEAEAAEESEASEEEEEKEREEEEEEEEEEEEEEEEEEEEE 


TEST READ/WRITE BITS IN CSR. IDX2 
Ti idihihpihhaho teeter tetit titi iti iti iti iti tii i iti tit ti tty 


s*TEST 2 


TSTe: 


1$: 


3$: 


4$: 


5$: 


SCOPF 


ERROR+2 


#50. ,$TIMES 
PC ,.CNTLC 


#340 ,PSW 
acsR 


#74,BAD 
GOOD ,BAD 
3$ 


KONST , GOOD 
#100 ,GO0D 
#3$,$LPERR 
GOOD ,aCSR 
@CSR ,BAD 
#120600, BAD 
on 


KONST , GOOD 
#4$,$LPERR 
GOOD ,acsR 
@CsR ,BAD 
GOOD , BAD 
S$ 





3300 50. ITERATIONS 
sIS IT CONTROL C? 


sLOCKOUT INTERUPTS 
sZERO CSR 
sSTORE GOOD DATA 


sSET LOOP-ON-ERROR ADDRESS 

sSET BIT PATTERN 

sSTORE CONTENTS OF CSR 

sMASK THE CONNECT PROCESS INDIACATORS 
sMASK RQO-3 

s COMPARE 

3BR IF OK 

sREAD/WRITE BIT FAILURE IN CSR 

sSTORE GOOD DATA 


;SET LOOP-ON-ERROR ADDRESS 
sSET BIT PATTERN 

sSTORE CONTENTS OF CSR 
sMASK THE CONNECT PROCESS INDIACATORS 
3; COMPARE 

;B8R IF OK 

sREAD/WRITE BIT FAILURE IN CSR 
;STORE GOOD DATA 

;SET LOOP-ON-ERROR ADDRESS 
:SET BIT PATTERN 

sSTORE CONTENTS OF CSR 

3; COMPARE 

;BR IF OK 

sREAD/WRITE BIT FAILURE IN CSR 
;GO TO NEXT TEST 











SEQ 0023 
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T2 
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TEST READ/WRITE BITS IN CSR. IDX2 


* 005077 


016700 
112710 
v16767 
062767 
011067 
026767 
001401 
104003 
005077 
016767 
112760 
011067 
026767 
001401 
104003 


000012 
022756 


176176 


175556 


175462 
175454 


175444 


175424 
000001 


175406 


SEQ 0024 


§ 5 2804000000466 46864606 0606606406666 06064646 066040066 46460646 046460406006 6600468464886 


TEST OF BYTE ACCESS IN CSR.IDX3 
jj PRRROREEEREEEE SEES EEE DEEDES ESOS OOOO 4400 000000000000000000008 


s#TEST 3 


TST3: 


2s: 


3$: 


SCOPE 


BE 
ERROR+3 


#10. ,$TIMES 
PC .CNTLC 


acsrR 


KONST , GOOD 
#377 ,1(RO) 
@RO, BAD 
GOOD ,BAD 
3$ 


3300 10. ITERATIONS 
sIS IT CONTRL C? 


sCLEAR CONTENTS OF CSR 
sSTORE ADDRESS OF CSR 

sTRY TO LOAD LOW ORDER BYTE 
sSTORE GOOD DATA 


py DATA 


OK 
sLOW BYTE ACCESS FAILURE IN CSR 
sCLEAR CSR 
sSTORE GOOD DATA (PWR OK) 
sTRY LOADING HI ORDER BYTE OF CSR 
sSTORE CONTENTS OF CSR 
; COMPARE 
:6R IF OK 
sHI-BYTE ACCESS FAILURE IN CSR 
:GO TO NEXT TEST 

















-MAIN. 
T3 


702 003712 
703 003720 
704 003722 
705 003724 


012777 


175712 
175206 


175666 


175654 
022600 
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TEST OF BYTE ACCESS IN CSR.IDX3 


175436 


174226 


176042 
174206 
175326 
175320 


175304 
175774 
175272 
175264 
175256 


174110 
175230 
175222 


175214 
175206 


175156 
175644 





SEQ 0025 









5 § 0866004006 0006 0606000006 06200606 6600000000 000000000800006000088 







s@TEST 4 CONNECT TEST WITHOUT INTERUPT ENABLE .IDX4 
§ § $OOOO60690460060 000000 000046000000 00000606000000000000000000008 
TST4: SCOPE 

MOV #10. ,$TIMES 3300 10. ITERATIONS 

JSR PC ,CNTLC sIS IT CONTROL C? 











1$: CLR RO sSET DELAY TIMER 
























MOV #0 ,PSW sLOWER PRIORITY 

CLR @csR sCLEAR CSR 

MOV #8, VECO sSET RETURN 

MOV #340 ,PSW sRISE PRIORITY 

MOV KONST , GOOD sSTORE GOOD DATA (SWB ACT,PWR OK,REQ) 

ADD #20001 ,GO0D 

TST OTO3 sDTO3 MODE? 

BNE 11$ sBR IF DTO3 

ADD #400 ,GO0D sSET BRQ IF DTO7 
11$: MOV @REQ,OCSR sSET REQ (BITO) 
2s: MOV @CSR BAD sSTORE CONTENTS OF CSR 

BIC #74,BAD sMASK RQO-3 

CMP GOOD ,BAD s COMPARE 

BEQ 5$ sBR IF OK 

INC RO sDELAY 

BNE 2s sBR IF NOT D 

ERROR+4 sSWB ACT (BIT13),BRQ OR REQ NOT SET 
5$: MOV #0 ,PSW sLOWER PRIORITY 

MOV KONST , GOOD sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 

ADD #20201 ,GO0D 

CLR RO sRESET DELAY 
6$: MOV @CSR BAD sSTORE CONTENTS OF CSR 

CMP GOOD ,BAD s COMPARE 

BEQ 7$ sBR IF OK 

INC RO sDELAY 

BNE 6$ sBR IF NOT D 

ERROR+4 sCONCBIT7) NOT SET 
7$: CLR aCsR sCLEAR CSR AND DISCONNECT 
- BR 9$ sEXIT 

MOV (SP)+,RO ssPOP STACK INTO RO 

MOV (SP)+,RO ssPOP STACK INTO RO 

MOV @CSR BAD sSTORE CONTENTS OF CSR 

ERROR+5S sINTERUPT DETECTED WITH INTERUPT ENABLE CLEARED 
9$: MOV #00PS, 8VECO sRESET RETURN 





sGO TO NEXT TEST 





-MAIN. 
va 
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CONNECT TEST WITHOUT INTERUPT ENABLE .IDX4 


715 
716 
003760 
003762 
717 003770 
718 
719 003774 


175514 


000400 
175466 
174762 


175372 
104005 
012777 022600 


175542 
173706 


175522 
175016 
175010 


174774 
174770 
174762 


3 § O06606 060666060606 0606 06 06 0066 66640606060006060600000800000000008 


s#TEST 5 RELEASE TEST WITHOUT INTERUPT ENABLE .IOXS 
§ § SOROSSRESESE SE SSEEESEESEESEREEEEEREEEREEEEERESEEDEDEEEEEEEEEEE 


TSTS: 
#10. ,$TIMES 3300 10. ITERATIONS 
PC ,.CNTLC sIS IT CONTROL C? 


1%: RO sSET DELAY TIMER 
sCONNECT 
sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 


sDROP PRIORITY 

sSTORE CONTENTS OF CSR 
3s COMPARE 

36R IF CONNECTED 
sDELAY 

3sBR IF NOT DONE 

sCOULD NOT CONNECT 
sEXIT TEST 

sSET RETURN 

sRISE PRIORITY 

sSET DELAY TIMER 
sCLEAR REQUEST 

sSTORE GOOD DATA (SWB ACT,PWR OK,CON) 


s0T03 MODE? 

3BR IF YES 

sADD BRQ IF DTO7 

sSTORE CONTENTS OF CSR 

3s COMPARE 

3BR IF OK 

sDELAY 

36R IF NOT DONE 

sBRQ NOT SET OR REQ NOT CLEARED 
sDOROP PRIORITY 

sSTORE GOOD DATA (PWR OK) 
sRESET DELAY 

sSTORE CONTENTS OF CSR 

s COMPARE 


ONE 
sCON OR SWB ACT NOT CLEARED 
sEXIT 


ssPOP STACK INTO RO 
13POP STACK INTO RO 
sSTORE CONTENTS OF CSR 
5 sINTERUPPT DETECTED WITH INTERUPT ENABLE CLRO 
@00PS,@VECO sRESET RETURN 
sGO TO NEXT TEST 





-MAIN, 


16 


762 
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CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE .IDX6 


8 fF SOARES AKAEEKEKESSEAKAEEAEASEHEESEKESEAEAERERESEEEEEEEEEREDEDEDS 


CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE .IDX6 
FE AORESEEOSESEESEEEEEEAESEEEAEEEEESEEREREEEEEREREDEEEREDEEEEEEEEE 


000766 
012777 


000012 
022120 


000000 
175330 
004524 
000340 
175440 
020001 
175306 


000400 
000001 
175252 


000074 
174540 


175232 


175342 
020401 


175174 


000074 
174462 


175272 
100000 


175124 
174420 


175100 


175066 


022600 





174720 


173510 


175324 
173470 
174610 
174602 


174566 
175256 
174554 
174546 
174540 


174512 
174504 


174476 


174470 
174462 


174442 
174434 


174426 
174420 


174370 


175054 


s*TEST 6 


TST6: 


1$: 


118: 
2s: 


38: 


4$: 


5$: 


6$: 


7$: 
8%: 


93: 


SCOPE 


ERROR+13 
CLR 
BR 


MOV 


10. ,$TIMES 
PC .CNTLC 


RO 
#0 ,PSW 
acsR 


8$,@VECO 
0340 ,PSW 
KONST , GOOD 
#20001 ,GO0D 
DTO3 


KONST , GOOD 
ee 


KONST , GOOD 


(SP)+,RO 
(SP)+,RO 


00PS,aVECO 


3300 10. ITERATIONS 
sIS IT CONTROL C? 


sSET DELAY TIMER 

sLOWER PRIORITY 

sCLEAR CSR 

sSET RETURN 

sRISE PRIORITY 

sSTORE GOOD DATA (SWB ACT,PWR OK,REQ) 


:0T03 MODE? 
3BR IF DTO3 
;ADD BRQ IF DTO7 
sSET REQ (BITO) 
sSTORE CONTENTS OF CSR 
sMASK RQO-3 
3s COMPARE 
3BR IF OK 
sDELAY 
:8R IF NOT DONE 
3SWB ACT (BIT13) OR REQ NOT SET 
30T03 MODE? 
3BR IF YES 
sSTORE GOOD DATA (SWB ACT.PWR OK,BRQ,REQ) 


sRESET DELAY 
sSTORE CONTENTS OF CSR 
sMASK RQO-3 


3DE 
:8R IF NOT DONE 

;BRQ(BIT8) DID NOT SET 
sSTORE GOOD DATA (7MO,PWR OK) 


sRESET DELAY 
ne OF CSR 


DE: £Y 
;8R IF NOT DONE 

;TMOCBIT1S5) NOT SET 
sCLEAR CSR AND DISCONNECT 


3sPOP STACK INTO RO 
3sPOP STACK INTO RO 
sSTORE CONTENTS OF CSR 


sINTERUPT DETECTED WITH INTERUPT ENABLE CLEARED 


sGO CLEAR CSR 
sRESET RETURN 
:GO TO NEXT TEST 








-MAIN,. 
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CONNECT FAILURE TEST WITHOUT INTERUPT ENABLE .IDX6 


012777 


000012 
021612 


175000 
174274 


005010 
000340 


000001 
175056 
020200 
174724 


000400 


174676 
174172 


175002 
100000 


174634 
174130 


174602 
022600 





174412 


175026 
174322 
174314 
173160 
174302 
174274 


174752 
173116 


174732 


174226 
174220 


174204 
174200 
174172 


174152 
174144 


174136 
174130 


174104 
174572 





35 900000000000 066 000066 00060060660666606 66600606 66666066066660646066660668 


RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE. IDX7 


§ 5 9908 00066006006060 086666000600 466000666660666460606060066 06006606066 0466060006 


s@TEST 7 

TST?: SCOPE 
MOV #10. ,$TIMES 
JSR PC .CNTLC 

1s: CLR RO 
MOV #1,9CSR 
MOV KONST, GOOD 
ADD #20201 ,G00D 
MOV #0 .PSW 

2s: MOV @CSR BAD 
CMP GOOD ,BAD 
BEQ 3$ 
INC RO 
BNE 2s 
ERROR+6 
BR 7$ 

3$: MOV 68$,aVECO 
MOV @340 ,PSW 
CLR RO 
BIC @REQ,.ACSR 
MOV KONST, GOOD 
ADD #20200 ,GO0D 
TST DTO3 
BNE 4s 
ADD #400 ,GO0D 

4$: MOV @CSR,BAD 
CMP GOOD ,BAD 
BEQ 5$ 
INC RO 
BNE 4$ 
ERROR+14 

5$: Vv KONST, GOOD 
ADD #100000, GO0D 
CLR RO 

63: MOV @csSR ,BAD 
CMP GOOD ,BAD 
BEQ 7$ 
INC RO 
BNE 6$ 
ERROR+14 

73: BR 9$ 

83: 
MOV (SP)+,RO 
MOV (SP)+,RO 
MOV @CSR BAD 
ERROR-5 

9$: MOV #00PS,aVECO 


3300 10, ITERATIONS 
sIS IT CONTROL C? 


sSET DELAY TIMER 
3; CONNECT 
sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 


sDROP PRIORITY 

sSTORE CONTENTS OF CSR 
3; COMPARE 

3BR IF CONNECTED 
;DELAY 

;8R IF NOT DONE 

sCOULD NOT CONNECT 
sEXIT TEST 

sSET RETURN 

sRISE PRIORITY 

sSET DELAY TIMER 
;CLEAR REQUEST 

sSTORE GOOD DATA (SWB ACT,PWR OK,CON) 


s0T03 MODE? 

3BR IF YES 

sADD BRQ IF OTO7 
sSTORE CONTENTS OF CSR 


3BR IF NOT DONE 
;BRQ NOT SET OR REQ NOT CLEARED 
sSTORE GOOD DATA (TMO,PWR OK) 


sRESET DELAY 
sSTORE CONTENTS OF CSR 
; COMPARE 
;BR IF OK 
;DELAY 
;BR IF NOT DONE 
:T™MO NOT SET 
sEXIT 


33POP STACK INTO RO 
33POP STACK INTO RO 
sSTORE CONTENTS OF CSR 


sINTERUPPT DETECTED WITH INTERUPT ENABLE CLRD 


sRESET RETURN 
3GO TO NEXT TEST 
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RELEASE TEST WITHOUT BUS MASTERSHIP OR INTERUPT ENABLE .IDX7 


012777 


000012 
021330 


174550 
000340 
174544 
000340 
005150 
000101 
020000 


000040 


000040 


173744 


174430 
174552 
020301 
173710 


174374 
172544 
022600 





174130 


172716 
174036 
174032 
174522 
174512 
174504 


172650 


173764 


173744 


173732 
173722 
173714 
173710 


174364 


§ 3 280806000006 06 06 0000086 06 046060664608 00606046046660646 4666060606 6666688 


s#TEST 10 


2s SSSR SKAKEK SESE ASSSSASHSS SKS AEEHSAKASAASEAKKEAEKEREEEEEEREEEEEE 


TST10: SCOPE 


1$: SUB 


BNE 


ERROR+10 
BR 


2s: 
MOV 
MOV 
CMP 
BEQ 


ERROR+11 


3$: MOV 
MOV 
ADD 
CMP 
BEQ 


CONNECT TEST.IOX8 


#10. ,$TIMES 
PC ,CNTLC 


acsR 

@340 ,PSW 
PRI,GOOD 
#340,BAD 
€2$,8VECO 
#101,8CSR 
ie ala ets 


40, Psu 


#40,BAD 
i$ 


4$ 


(SP)+,RO 
(SP)+,RO 


@cCsR ,BAD 
KONST , GOOD 
#20301 ,GO0D 
_— 

5 


ERROR+ 12 


4$: CLR 
CLR 
5$: MOV 


acsrR 
PSW 
#00PS,aVECO 


3300 10. ITERATIONS 
sIS IT CONTROL C? 


sCLEAR CSR 
sRISE PRIORITY 


sSTORE PRIORITY LEVEL 
sSTORE ACTUAL PRIORITY INDIACATOR 


:SET RETURN 
sSET I.E. AND REQ 


sWAIT FOR SWB ACT TO APPEAR 


3BR IF NOT THERE 


sLOWER PRIORITY UNTIL INTERUPTED 


3 
;BR UNTIL DONE 
sEXIT 


3sPOP STACK INTO RO 
33POP STACK INTO RO 


sCORRECT BREAK LEVEL? 


:9R IF OK 


sINTERUPT AT WRONG PRIORITY 
sSTORE CONTENTS OF CSR 
sSTORE GOOD DATA (SWB ACT,PWR OK,CON,IE,REQ) 


; COMPARE 
;B8R IF OK 


sCONNECT CONDITION FAILURE 


sCLEAR CSR 
sLOWER PRIORITY 
sRESET RETURN 
sGO TO NEXT TEST 


INDIACATOR 
sNO INTERUPT DETECTED 












SEQ 0029 


-MAIN. 


T10 


—— 


895 
896 
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CONNECT TEST. IDX8 


012777 


174274 


000001 
174374 
174236 
173532 


005456 
000100 
000001 
014136 
174316 
000100 
174152 


001100 
174264 
000100 
174120 
173414 


174100 
022600 





173722 


174336 
173632 
173624 
172470 
173612 
173604 


174250 
173544 
173540 
173532 


174214 
174204 
174176 


173466 
173460 
173454 


173434 
173426 
173422 
173414 


174074 





SEQ 0030 


$F SERRA AEAESASESSASEAASS ESSE ASEKERESASEAAKEALEAREEEEEEEREEEEEEE 


RELEASE TEST .IDX9 
j  MERREREAAEREEESEEEEREDESEREEEE EE ERERED ES OEOEEEEEEDEEEEES ED ERODE 


s#TEST 11 

TSTi1: SCOPE 
MOV #10. ,$TIMES 
JSR PC ,CNTLC 

1$: CLR RO 
MOV #1,9CSR 
MOV KONST , GOOD 
ADD #20201 ,G00D 
MOV #0 ,PSW 

2$: MOV @CSR ,BAD 
cMP GOOD ,BAD 
BEQ 3$ 
INC RO 
BNE es 
ERROR +6 
BR 7$ 

3$: TST DTO3 
BEQ 8$ 
CLR RO 
BIC REQ, 8CSR 

S$: MOV KONST , GOOD 

6$: MOV @cSR ,BAD 
CMP GOOD ,BAD 
BEQ $ 
ERROR+15 

7$: BR 10$ 

8$: MOV #9$,8VECO 
BIS #100,8CSR 
BIC #1,98CSR 
JSR PC ,WAITOS 
MOV KONST , GOOD 
ADD #100 ,GOOD 
MOV 8CSR BAD 
ERROR+10 
BR 10$ 

9$: MOV @STACK ,SP 
MOV KONST , GOOD 
ADD #100 ,GO0D 
MOV @CSR BAD 
CMP GOOD ,BAD 
BEQ 10$ 
ERROR+15 

10$: CLR aCsR 
MOV #00PS,@VECO 


3300 10. ITERATIONS 
sIS IT CONTROL C? 


sSET DELAY TIMER 
s CONNECT 


sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 
;DROP PRIORITY 

sSTORE CONTENTS OF CSR 

; COMPARE 

;BR IF CONNECTED 

sDELAY 

;BR IF NOT DONE 

sCOULD NOT CONNECT 

sEXIT TEST 

30T03 MODE? 

;BR=NO 

;SET DELAY TIMER 

;CLEAR REQUEST 

sSTORE GOOD DATA (PWR OK) 
sSTORE CONTENTS OF CSR 

; COMPARE 

;6R IF OK 

sRELEASE CONDITIONS NOT MET 
:GO TO NEXT TEST 

sSET RETURN 

;SET I.E. 

;CLR REQ. 

:GO WAIT 

;LOAD GOOD 


sNO INTERUPT 
sEXIT 


sRESET STACK 
sLOAD GOOD 


sCLEAR AND DISCONNECT 
sRESET RETURN 


-MAIN. 


Til 


pee. 


940 
941 
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RELEASE TEST .IDX9 


012777 


000012 
020632 


174052 
000340 


005672 
174160 
100100 
174026 


000400 
000101 
173772 
173266 


000000 


173720 
022600 


173432 


172220 


174036 
173330 
173322 


173306 
173776 
173274 
173266 


172114 


173714 





SEQ 0031 


WEIPiCir iii rrirrirititiiitiiitiitti titi tittti yy 
CONNECT FAILURE TEST.IDX10 


s#TEST 12 


£5 OOOO O4 444004449444 EEEEEDEROEEEEEEEEDEEEEEEEDEEEEEEEEE 


TST12: 


63: 
is: 


11$: 


223: 


2s: 


4$: 
S$: 


SCOPE 


BNE 


#10. ,$TIMES 
PC ,CNTLC 


acsR 
#340 ,PSW 
RO 


#2$,QVECO 
KONST , GOOD 
#100100, G00D 
D0TO3 

6$ 

#400 ,GO0D 
#101,8CSR 
@csR BAD 


22$ 


(SP)+,RO 
(SP)+,RO 


acsrR 
#00PS, VECO 





3300 10. ITERATIONS 
sIS IT CONTROL C? 


sCLEAR CSR 

sRISE PRIORITY 
sSET DELAY TIMER 
sSET RETURN 


sSTORE GOOD DATA (CTMO,PWR OK,IE) 
:D0T03 MODE? 

3;BR IF DTO3 

sA0D BRQ IF DTO7 

;SET I.E. AND REQ 
sSTORE CONTENTS OF CSR 
3; COMPARE 

3;BR IF OK 

;DELAY 

3;BR IF NOT DONE 

:TMO NOT SET 

sEXIT 

sRESET DELAY 

sDROP PRIORITY 

sDELAY 

;68R IF NOT DONE 

sNO INTERUPT DETECTED 
sEXIT 


3sPOP STACK INTO RO 
+3POP STACK INTO RO 
sCLEAR CSR 

sRESET RETURN 

3GO TO NEXT TEST 





-MAIN. 
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Ti2 CONNECT FAILURE TEST.IDX10 


972 
973 


000012 
020452 


000001 
174012 
020201 
000000 
173640 
173134 


006142 
000340 


000100 
173566 
173710 
100100 
173556 


000400 
173032 


173640 
100100 


000000 


012600 
012600 


012777 022600 


—— 


173252 


173666 
173162 
173154 
172020 
173142 
173134 


173612 
171756 


173572 
173070 


173060 
173052 


173036 
173032 


173010 
173002 


171644 


173450 


33 SEEEEREAEAEEED OS EEEEEEEREDEEEEEEEEEEEEEEEEDEEEREEEEEERERESEEEES 


s#TEST 13 


RELEASE TEST WITHOUT BUSS MASTERSHIP.IDX11 


§ § REREEREAEEEEEEEEEEEEEEEEEEEE ES O44 44 4446OREEEEREEEEEERERERERE ESS 


TST13: 


1$: 


2s: 


3$: 


4$: 


41$: 


5$: 


51$: 


6$: 


7$: 


SCOPE 
MOV #10. ,$TIMES 
JSR PC,.CNTLC 


CLR RO 

MOV #1,8CSR 

MOV KONST , GOOD 
ADD #20201 ,GO0D 


INC RO 
BNE $ 
ERROR+6 

7$ 


MOV #6$,8VECO 
MOV #340 ,PSW 
CLR RO 

MOV #100, 8CSR 
MOV @CSR ,BAD 
MOV KONST, GOOD 
ADD oe 


BEQ $ 

INC RO 

NE 

ERROR +16 
7$ 


MOV KONST , GOOD 
ADD + rane 


MOV #0 ,PSW 
RO 


7$ 


MOV (SP)+,RO 
MOV (SP)+,RO 
MOV @00PS, @VECO 





+300 10. ITERATIONS 
sIS IT CONTROL C? 


sSET DELAY TIMER 
s CONNECT 


sSTORE GOOD DATA (SWB ACT,PWR OK,CON,REQ) 
sDROP PRIORITY 
sSTORE CONTENTS OF CSR 

OMPARE 


3BR IF NOT DONE 

sCOULD NOT CONNECT 

sEXIT TEST 

sSET RETURN 

sRISE PRIORITY 

sSET DELAY TIMER 

sCLEAR REQUEST AND SET IE 
sSTORE CONTENTS OF CSR 


sSTORE GOOD DATACTMO,PWR OK, IE) 
sDT03 MODE? 

sBR IF DTO3 

sAGD BRQ IF DTO7 

s COMPARE 


sBR IF NOT DONE 
sTMO NOT SET 
sEXIT 


sSTORE GOOD DATA (TMO,PWR OK,IE) 
sRESET DELAY 
sDROP PRIORITY 
;DELAY 

:BR IF NOT DONE 
sNO INTERUPT 
s;EXIT 


3sPOP STACK INTO RO 
33POP STACK INTO RO 
sRESET RETURN 

sGO TO NEXT TEST 







SEQ 0032 


(ee a er ce oe ae ret 


-MAIN. 
T1i3 


—— 


1016 
1017 
1018 
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RELEASE TEST WITHOUT BUSS MASTERSHIP.IDX11 


016777 
017767 


000012 
020206 


173020 
173552 
173426 
173424 
000000 
000001 
173362 
173354 
173346 
173470 
020201 
000242 
020034 
020026 
000222 
173314 
173304 
173300 
173274 


173266 
173262 


173134 
173132 





173006 


171550 
173366 


172650 
172640 
172632 


173310 
172572 


172560 
172546 


173226 
013236 


173206 


172422 
172414 


35 98000400 000066 060060046606 6664600 64 6644604640 064646 6466640640464 464404044 


s*TEST 14 


§  FRSRSEREKEREEAEEEEAEERAAERAEERALEEESEEEEEEAEEEAEEAEKEEEEEEEEDREEEES 


3300 10. ITERATIONS 
:IS IT CONTROL C? 


TSTi4: 


1$: 


2s: 


20$: 


3$: 


31$: 


33658: 
64%: 


4$: 


SCOPE 


BEo 





RESET (RST) TEST.IOX12 


#10. ,$TIMES 
PC ,CNTLC 


$PASS 
S$ 


KONST, GOOD 
#20201 ,GO0D 


S$ 

PC ,CKADR 
FLAG 

20$ 

5$ 


DEVRW, BDEVAD 


.65$ 


@DEVAD ,BAD 
panes 


sFIRST PASS? 


sSKIP TEST ON FIRST PASS 
sRESET IN NEUTRAL? 

sBR=NO RESET IN NEUTRAL 

sIS A DEVICE REGISTER PRESENT? 


sEXIT IF NOT 


sRESETABLE BITS PRESENT? 


sBR=NO SO EXIT 
sDROP PRIORITY 
;CONNECT 

; CONNECTED? 
;8R IF YES 
3 TIMEOUT? 
;BR IF 


NOT 
sSTORE CONTENTS OF CSR 
sSTORE GOOD DATACSWB ACT,PWR OK,CON,REQ) 
sCOULON’ T CONNECT 


sGO CHECK DEVICE ADDRESS EXIST? 
;iF FLAG=1, TRAPPED 


sEXIT 


sSET READ/WRITE BITS IN EXTERNAL DEVICE REGISTER 
sSTORE CONTENTS OF DEVAD 

sCOMPLEMENT R/W BITS 

sCLEAR OUT BITS NOT UNDER TEST 

sRESTORE ORIGINAL PATTERN 


sDID THEY SET? 
sBR IF YES 


—- SET READ/WRITE BITS IN DEVAD 


; 
sSET RST 


sSET UP FOR 22MSEC COUNT 


sSTILL SET? 
BR=NO 


i 

ss TYPE ASCIZ STRING 

64$ 33;GET OVER THE ASCIZ 
<200>/ERROR! RST(BIT9) DION’ T CLEAR IN TIME./ 


sSTORE CONTENTS OF DEVAD 
sRESET CONDITIONS MET? 


;BR IF YES 





-MAIN. 


T14 


1066 006514 
1067 006516 
1068 006520 
1069 006526 
1070 006532 
1071 006540 
1072 006542 


005200 
001367 
016767 
005167 
046767 
104021 
005077 
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RESET (RST) TEST.IDOX12 


ane 4 sWAIT AWHILE 
173116 172376 MOV DEVRC GOOD sSAVE DEVRC 
172372 COM GOOD 
172366 172366 BIC GOOD ,BAD sHI LITE BAD BITS 
ERROR+21 sRESET (RST) DIDN'T WORK 
173054 S$: CLR acsR sSHUT DOWN AND GO TO NEXT TEST 





SEQ 0034 


ee ee 


-MAIN. 
T14 


1074 
1075 
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RESET (RST) TEST. IDXi2 


006546 
006550 
006556 


000012 
017614 


173046 
000000 
000C01 
173012 
173004 
172776 
173120 
020201 
900002 


172740 
000200 


172720 


172414 


171200 
173016 


172300 
172270 
172262 


172746 


172242 
172234 





SEQ 0035 
PLOT rrr rrr tiittitiit ttt i ttt t yy 
s#TEST 15 RESET HOLD CHLD) TEST. IDX13 
j MERA RAEREEEEEEERED EE EE EEEEEEEEEEEEEEEEEDEEEEEDEEEREREEEEEEEEEEE 
TSTi5: SCOPE 
MOV #10. ,$TIMES 3300 10. ITERATIONS 
JSR PC ,CNTLC sIS IT CONTROL C? 
TST DTO3 sDT03 MODE | 
BNE 3$ :BR IF YES 
MOV #0 ,PSW sDROP PRIORITY 
MOV REQ, 8CSR ; CONNECT 
1$: TSTB acsR sCONNECTED? 
BMI 2$ ;BR IF YES 
TST acsR s TIMEOUT? 
BPL i$ ;BR IF NOT 
MOV @CSR ,BAD sSTORE CONTENTS OF CSR 
MOV KONST , GOOD 
AOD #20201 ,GO0D sSTORE GOOD DATACSWB ACT,PWR OK,CON, REQ) 
ERROR+6 sCOULDN' T CONNECT 
BR 3$ sEXIT 
28: BIS #2,8CSR sSET HLD(BIT1) 
RESET :D0 RESET 
Vv @CSR ,BAD sSTORE CONTENTS OF CSR 
BIT #200 ,BAD sSTILL CONNECTED? 
BNE 3$ ;BR IF YES 
ERROR+20 sHLD DION'T DISABLE RESET 
3$: CLR acsrR sSHUTDOWN AND GO TO NEXT TEST 





a a re 
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Tis RESET HOLD CHLD) TEST. IDX13 


006702 000004 
006704 012767 000012 
1102 006712 004767 017460 


1104 006716 012701 001750 
1105 006722 012767 000000 
1106 006730 012777 000001 
1107 006736 105777 172660 
1108 006742 100416 

1109 006744 005777 172652 
1110 006750 100372 

1111 006752 017767 172644 
1112 006760 016767 172766 
1113 006766 062767 020201 


1116 007000 042777 000001 
1117 007006 016767 172740 


1119 007016 017767 172600 
1120 007024 026767 172074 


1126 007044 005077 172552 


007050 000004 
00705" 012767 000001 


1133 007060 005767 172552 
1134 007064 001012 
1135 007066 000167 000446 


1137 007072 004767 017242 
1138 007076 005767 017234 
1139 007102 001437 

1140 007104 104027 

1141 007106 000167 000426 
1142 007112 005767 172524 
1143 007116 001002 

1144 007120 000167 000414 
1145 007124 012767 000000 
1146 007132 012777 000001 
1147 007140 105777 172456 


i 


172260 


171046 
172664 


172146 
172136 
172130 


172614 
172110 


172102 
172074 


172112 


170644 
172462 


§ 5 5SOOO4 4499454 06 4044444 OS OEE EEEEERESESESEEEEEEEEEEEEEEEESE 


s#TEST 16 


TST16: 


11$: 
1$: 


2s: 


38: 


4$: 
S$: 


35 46S 4E 4444046444444 44446046 0004446400 4E444494 4444S EEEEEEEREEE 


RESET-IN-NEUTRAL TEST. IDX15 
j PARR EE REESE EE EE ES ES ESOS OOS 6 66 6600006006000046000000000600088 


SCOPE 


ERROR+15 
BR 


DEC 
BNE 
CLR 


HI-SPEED SWITCHING TEST. IDX14 
j MORESO ED GEES EEE EEE EEOE ES ES OOOE ESOS OE ODES EE OEEEEEEEEE ODED EES 


#10. ,$TIMES 
PC ,CNTLC 


#1000. ,R1 


s#TEST 17 
TST17: SCOPE 
MOV #1,$TIMES 
TST DEVAD 
BNE 15$ 
JMP 12$ 
13$: 
JSR PC ,CKADR 
TST FLAG 
BEQ 2s 
ERROR+27 
JMP 12$ 
15$: TST DEVRC 
BNE 14$ 
JMP 12$ 
14%: MOV #0 ,PSW 
MOV #REQ,ACSR 
1$: TSTB 














SEQ 0036 


3300 10. ITERATIONS 
sIS IT CONTROL C? 


sSET COUNTER 

sDROP PRIORITY 
sCONNECT 

3 CONNECTED? 

;6R IF YES 

3 TIMEOUT? 

;BR IF NOT 

sSTORE CONTENTS OF CSR 


sSTORE GOOD DATACSWB ACT.PWR OK,CON,REQ) 
;COULON’ T CONNECT 

sEXIT 

sRELEASE CONNECTION 

sSTORE GOOD DATACPWR OK) 

;SET DELAY TIMER 

sSTORE CONTENTS OF CSR 

3; COMPARE 


3;BR IF OK 
;RELEASE CONDITIONS NOT MET 
sEXIT 

sCOUNT A SUBPASS 

3BR IF CONTINUE 

;SHUTDOWN AND GO TO NEXT TEST 


3300 1 ITERATION 


sIS A DEVICE REGISTER PRESENT? 
sCONTINUE TEST IF PRESENT 
sGO EXIT 


sCHECK IF DEVICE ADDRESS EXIST? 
sIF FLAG=1;TRAP OCCURED 
:BR:NO TRAP 


:GO0 EXIT 

sANY RESETABLE BITS? 
;BR=YES 

3GO EXIT . 
sDROP PRIORITY 
CONNECT 

3; CONNECTED? 













-MAIN. 
T17 


1148 007144 
1149 007146 
1150 007152 
1151 007154 
1152 007162 
1153 007170 
1154 007176 
1155 007200 
1156 007202 
1157 007202 
1158 007210 
1159 007216 
1160 007222 
1161 007230 
1162 007234 
1163 007242 
1164 007244 
1165 
1166 007250 
1167 
1168 007260 
1169 007262 
1170 007270 
1171 
1172 007302 
1173 007304 
1174 007310 
1175 007312 
1176 007320 
1177 007326 
1178 007334 
1179 007336 
1180 007340 
1181 
1182 007354 
1183 007356 


100752 
005777 
100372 
017767 
016767 
062767 
104006 
000557 


016777 


172450 
172442 


172564 
020201 


172432 
172422 
172416 
172412 
172404 
172400 


172346 
172342 


000000 
000001 
172320 
172312 
172304 


172426 
020201 


172272 
172270 
177777 


171622 


007406 


007464 


172226 
172220 


171744 
171734 
171726 


172426 
171710 


171676 
171664 


170506 
172324 


171606 
171576 
171570 


171560 
171552 


MACRO M1200 24-MAY-85 11:37 PAGE 30-1 
RESET-IN-NEUTRAL TEST. IDX15 


2s: 


3$: 
4$: 


6$: 


78: 
8$: 


33658: 
64%: 


33678: 
66$: 


108: 
118: 


BEQ 
ERROR+22 


#20201 ,G00D 
12$ 


DEVRW, BDEVAD 
@DEVAD ,BAD 


#20201 ,GO0D 
12$ 

@DEVAD ,BAD 
DEVRC,BAD 


#-1,R2 
8$ 


.658 


64% 
<200>/THIS DTO7 INHIBITS RESET -IN-NEUTRAL./ 


10$ 
.67$ 


66$ 
<200>/THIS DT07 RESETS IN NEUTRAL. / 


R2,DEVCON 
12$ 
R2 ,DEVCON 
12$ 





SEQ 0037 





;BR IF YES 
3 TIMEQUT? 
38R IF NOT 
sSTORE CONTENTS OF CSR 


sSTORE GOOD DATACSWB ACT,PWR OK,CON,REQ) 
—-* CONNECT 
; 


sSET READ/WRITE BITS IN EXTERNAL DEVICE REGISTER 
sSTORE CONTENTS OF DEVAD 

sCOMPLEMENT R/W BITS 

sCLEAR OUT BITS NOT UNDER TEST 

sRESTORE ORIGINAL PATTERN 
















Ss 
— SET READ/WRITE BITS IN DEVAD 
3 
sDISCONNECT 
300NE? 
3BR=NO 
sDROP PRIORITY 
3; CONNECT 


3; CONNECTED? 

3BR IF YES 

3 TIMEOUT? 

3BR IF NOT 

sSTORE CONTENTS OF CSR 


sSTORE GOOD DATACSWB ACT,PWR OK,CON,REQ) 
- =; aaa CONNECT 


; 

sSTORE CONTENTS OF DEVAD 
sRESET CONDITIONS MET? 
sBR=YES 

sSET R2 FOR NO RESET 


sSET R2 FOR RESET 
sFIRST PASS? 

sBR=NO 

CHECK RESET CONDITION 
sBR=RESET 

ss TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 
































ss TYPE ASCIZ STRING 
3sGET OVER THE ASCIZ 










sSTORE CONDITION 
= IT CHANGED? 
sRESET-IN-NEUTRAL OPERATION HAS CHANGED 
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T17 RESET-IN-NEUTRAL TEST. IDXiS 


tht 007540 005077 172056 12$: CLR acsR sCLEAR AND DISCONNECT 


1200 





-MAIN. MACRO M1200 24-MAY-85 11:37 PAGE 31 
T17 RESET-IN-NEUTRAL TEST. IOXiS 


1204 007544 012767 002526 011656 MONEND: MOV @RESTRT,$RTNAD ;SET RETURN 
coo. 007552 000167 011552 JMP sEoP sGO DO END PASS 





LL 
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T17 RESET-IN-NEUTRAL TEST. IOX1S 





1208 

rt -SBTTL MULTIPORT TEST 

1211 007556 MULPRT : 

1212 007556 004767 016614 JSR PC ,CNTLC sIS IT CONTROL C? 
1213 007562 005767 016416 ‘ TST PARFLG sCHECK FOR PARAMETERS 
1214 007566 100404 BMI 1$ sBR*YES 

1215 007570 004767 016602 JSR PC .CNTLC sIS IT CONTROL C? 
1216 007574 004767 014734 JSR PC,PARIN sGO INPUT PARAMETERS 
1217 007600 012767 000100 172120 1%: MOV 64. ,CYCLE sSET COUNTER 

1218 007606 005767 172142 TST DEVCON sRESET IN NEUTRAL OPTION USED? 
1219 007612 001003 BNE 2$ sBR=NO 

1220 007614 005067 172136 CLR TRIN sSET FLAG FOR TEST 
1221 007620 000403 j BR 2$+6 sCONTINUE 

1222 007622 012767 177777 172126 23: MOV @-1, TRIN sSET FLAG FOR NO TEST 
1223 007630 005767 172000 TST OTO3 s0T03 MODE? 

1224 007634 001404 BEQ 33 sBR=DTO7 MODE 

1225 007636 004767 016534 JSR PC .CNTLC sIS IT CONTROL C? 
1226 007642 000167 002672 JMP MULDT3 sGO DO DTO3 MULTIPORT 
1227 007646 012777 022600 171750 33: MOV @00PS,8VECO sSET RETURN 

1228 007654 012777 000340 171744 MOV #340 ,avEC2 sSET LEVEL 

1229 007662 004767 012210 JSR = =—s- PC, SEQMAK 3GO CONSTRUCT SEQUENCER 
1230 007666 004767 012552 JSR PC ,SEQINT sINIT. SEQUENCER 
1231 007672 012767 000000 170076 MOV rc .PSwW sDROP PRIORITY 

1232 0C7700 026705 171740 CMP 7 URTNO,RS sMASTER OR SLAVE? 
1233 007704 001063 BNE SLAVE sBR=SLAVE 


-— 
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MULTIPORT TEST 


1239 007706 
1240 007714 
1241 0077290 


1244 007722 
1245 007726 
1246 007730 
1247 007734 


1251 007740 
1252 007740 
1253 007744 
1254 007750 
1255 007754 
1256 007762 
1257 007766 
1258 007772 
1259 0C7774 
1260 010000 
1261 010004 
1262 010010 
1263 010012 
1264 010014 
1265 010016 
1266 010022 
1267 010024 
1268 010030 
1269 010034 
1270 010036 
1271 010042 
1272 010050 


-— 


012767 
004767 
000407 


026705 
001404 
004767 
000167 


000632 
011660 


171716 


016442 
000114 


016432 
012236 
171746 
000001 
171736 
171732 


171722 
012524 
171712 


177777 


012436 
171672 


177660 
007556 
011256 





ee 





SECSRSOSSEEEEEEEEEERERAEEEEEEEEEEESSEEEEEEEAEEEEREEDEREEEEEEEEREREDEEEEEEEEEES 
: ON FIRST PASS WAIT BEFORE CONNECTING TO THE SWITCHED BUS SO THAT SLAVES CAN 
- CLEANUP AND READY THENSELVES FOR THE NEXT SEQUENCE,MASTER NOT AHEAD OF SLAVE 
FEROSOSROEEEEEESEREEEEADESESEEEDEEAEER EAE EERE AEEEEAEEAEEREE SEEDED SEEDED EES 


011724 MOV 
JSR 
BR 


DISPAT: CMP 
BEQ 
JSR 
JMP 
sMASTER 


MASTER: 


1$: 
171740 MOVB 


011360 2s: MOV 


#632, TOCK 
PC ,WAIT 
MASTER 


PORTNO,RS 
MASTER 
PC .CNTLC 
SLAVE 


sSET CLOCK FOR 5S SEC 
sGO TO MASTER CODE AFTER SYNC WAIT 


sMY TURN AS MASTER? 
sBR=YES 

sIS IT CONTROL C? 
3G0 BE SLAVE 


TESTS DISPATCHING 


PC ,.CNTLC 

PC ,MASMEN 
CURF UN 
10R4), CURFUN 
CURID 
(R4),CURID 


CURF UN 
@TABM-2,R3 
CURFUN,R3 
OR3,R3 
PC ,@R3 
(R4)> 
@-1,(R4) 

$ 


1 
PC ,SEQSTP 
CYCLE 


@MULPRT , $RTNAD 
SEOP +2 


sIS IT CONTROL C? 

sGO MAKE MASTER MENU 

sINSURE NO EXTRANEOUS BITS PRESENT 
sGET CURRANT FUNCTION 

sCLEAN IT OUT 

sGET CURRENT ID 


;DOUBLE IT 

sLOAD BASE ADDRESS 
;ADD OFFSET 

;GET ACTUAL ADDRESS 
:G0 00 IT 

;STEP THRU MENU 
;DONE MENU? 

;BR=NO 

= _ SEQUENCER 
3 

:on IF DONE 

:GO START AGAIN 
;SET UP RETURN 

;GO DO END PASS 


ee eed 
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SEQ 0042 


r-— 


rs ; SLAVE TEST DISPATCHING 

12 

1276 010054 004767 012214 SLAVE: JSR PC ,SALMEN sGO MAKE SLAVE MENU 
1277 ; JSR PC ,SYNCUP sGO SYNCUP! 2 MINUTE TIME OUT 
1278 010060 005067 171636 i$; CLR CURF UN sCLEAN IT 

1279 010064 116467 000001 171630 MOVB 10R4), CURFUN sGET CURRENT FUNCTION 
1280 010072 005067 171626 CLR CURID sCLEAN IT 

1281 010076 111467 171622 MOVB (R4),CURID sGET CURRENT ID 
1282 010102 000241 cLC 

1283 010104 006167 171612 ROL CURF UN sDOUBLE IT 

1284 010110 012703 012524 AOV @TABM-2,R3 sLOAD BASE ADDRESS 
125 910114 066703 171602 ADD CURFUN,R3 sADD OFFSET 

1286 010120 011303 MOV OR3,R3 sGET ACTUAL ADDRESS 
1287 010122 004713 JSR PC ,@R3 sGO DO IT 

1268 010124 005724 TST (R4)+ sSTEP THRU MENU 
1289 010126 022714 177777 CMP @-1,(R4) sDONE MENU 

1290 010132 001352 BNE 1$ sBR=NO 

1291 010134 004767 012326 JSR PC ,SEQSTP GO STEP SEQUENCER 
1292 010140 005367 171562 DEC CYCLE sCOUNT 

1293 010144 001402 BEQ es sBRIF DONE 

1294 010146 000167 177550 JMP DISPAT sGO START AGAIN 
1295 010152 012767 007556 011250 23: MOV @MULPRT,$RTNAD ;SET UP RETURN 
1296 010160 000167 011146 JMP SEQP +2 :GO DO END PASS 








—_—_—_—_—_>_—$_—_—__—_—_—_—_—_—___—_— SS ee 
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1301 010164 
1302 010164 


1304 010170 
1305 010174 
1306 010176 


1308 010200 
1309 010204 
1310 010210 
1311 010216 


1313 010224 
1314 010226 


1335 010506 
010512 


010600 
1336 010600 

019604 
1337 010606 
1338 010610 
1339 010612 
1340 019620 


004767 


012700 
005300 
001376 


004767 
004767 
012777 
112777 


016746 


016746 
104402 
000000 
000776 
036767 
001042 
104401 
000432 


016746 


012777 
012777 


01620€ 
100000 


011246 
011300 
010360 
0v0101 


000060 


010250 
171256 


170554 


171232 
010000 


010410 


170436 


171226 
010514 


170322 


000101 
022600 





171406 
171376 


170560 


170534 
170526 


170422 


171002 
170776 


+E dahehethtethdecethcheheeetee hindi b i biti tititititititititititititit ttt 


sEXTERNAL CONNECT REQUEST REJECTED (MASTER_TEST_1) 
jERPAREEEAEE EERE DEEDS ORDERED ODODE OD EEEEEOEEEEEEEEEEEEDEEDEE 


FUNCT1: 
JSR 


S$: INC 

B 
3365$: .ASCIZ 
64$: 


1$: 


3367$: .ASCIZ 
66$: 


2s: BIT 
33:69%$:  .ASCIZ 


68$: 


3$: MOV 


PC ,CNTLC sIS IT CONTROL C? 

—— sKILL TIME FOR OTHERS TO SEE TRANSISTIONS 
3<<se2 

--2 3<<se 

PC ,CONNEC 3GO CONNECT 

PC ,CONID GO CONVERT SLAVE ID 

#1$,8VECO sSET RETURN 

#101,8CSR sENABLE INTERUPT 

RO sSET TIMER 

#60,R1 sMUL TIPLIER<<ssses22222 

RO sTIME OUT<<sees222 

--2 3BR IF NOT DONE 

Ri sALLOW TIME FOR HDW DELAY<<s2s2s2<< 

5$ sAFTER CONNECTING 70 THE SWITCHED BUS<<==<== 

,65$ +;TYPE ASCIZ STRING 

64$ +;GET OVER THE ASCIZ 

<200>/ERROR1A! NO EXTERNAL REQUEST INTERUPT DETECTED cSR= / 

@CSR BAD sSAVE CSR 

BAD, -( SP) +;SAVE BAD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 

--2 

(SP)+,RO +sPOP STACK INTO RO 

(SP)+,RO +3POP STACK INTO RO 

@CSR BAD sSTORE CONTENTS OF CSR 

#10000,BAD sMAKE SURE EXT INT IS SET 

2s ;BR = OK 

.67$ +s TYPE ASCIZ STRING 


66$ +3GET OVER THE ASCIZ 
<200>/ERROR1B! EXTERNAL INTERUPT NOT SET. CSR= / 


BAD, -( SP) 3sSAVE BAD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


--2 

COVID,BAD sCORRECT SLAVE iD? 
3$ sBR=YES 

.69$ ss TYPE ASCIZ STRING 


68$ 33GET OVER THE ASCIZ 
<200>/ERRORIC! EXTERNAL REQUEST FROM WRONG PORT. CSR= / 


BAD, -( SP) 3sSAVE BAD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


72 
#101,98CSR sCLEAR EXT INT REJECT THE REQUEST FROM SLAVE 
#00PS, VECO sRESET RETURN 
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MULTIPORT TEST 





1341 
1342 010626 012700 100000 MOV #100000, RO sKILL SOME TIME<<=2= 
1343 010632 005300 DEC RO s<¢aee 
sees 010634 001376 BNE --2 
$ 010636 005077 170760 CLR acsR sDIS SWB TO NEUTRAL STATE<<=s2s2ss2sses 
1348 010642 012700 001600 MOV #1600,RO sKII.L SOME TIME<<=== 
1349 010646 005300 DEC RO 3SO OTHERS CAN SEE XSION<<=== 
Tt 010650 001376 BNE -2 sOF SWB.ACT BIT O=>1 <<2=s 
1 
1352 010652 005067 167120 CLR PSW sLOWER PRIORITY 
1353 010656 000207 RTS PC 


-— 
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1360 010660 
1361 010660 


1365 010664 


1367 010670 
1368 010672 


1370 010674 
1371 010700 
1372 010704 
1373 010712 
1374 010716 
1375 010720 
1376 010726 
1377 010734 
1378 010736 

010742 


011030 
1379 011030 
011034 
1380 011036 


1382 011044 


1384 011052 
1385 011056 
1386 011060 
1387 011062 
1388 011064 
1389 011066 


1391 011070 
011074 


011166 
1392 011166 
1393 011174 
011200 
1394 011202 
1395 011204 
1396 011206 
011206 
011210 
1397 011212 
1398 011220 
1399 011226 
1400 011230 
011234 





004767 


012700 


005300 
001376 


004767 
004767 
012777 
005767 
001052 
016777 
026777 
001443 
104401 
000432 


016746 
104402 
012767 


112777 


012701 
005000 
005200 
001376 
005301 
001374 


104401 
000434 


017767 
016746 


015512 


100000 


010552 
010604 
011206 
171040 


170714 
170706 


010744 


170602 
177777 
000101 
000060 


011076 


170430 
167726 


170404 
010000 


011236 





170712 


170710 
170702 


170712 
170550 


167732 


167706 
167700 






FRCRARAEREREEAAADEEEAEE REEDED EERE DERE EE OD ES OEOEOEOEEEEEEEEEEEEE 
sEXTERNAL REQUEST IGNORED (MASTER_TEST_2) 

; (MASTER FAILS OVER TO SLAVE) 

RRS EERAAEEEESESEEAASERERAEAREREAEEEEEREDED AEE EEERES EE EEEEEES 


FUNCTe: 
JSR PC ,CNTLC sIS IT CONTROL C? 


FRRRAOERERAEEEAEEEEEREEE DEES EERE ODED ES EEOE ODED ESOS ODES EE OOOO ES OEEEEDEEEEEEEEE 
sALLOW TIME FOR OTHERS TO DISPATCH AND SEE THE SWB.ACT. GO 0 TO 1 


MOV #100000, RO sSTALL TIME FOR OTHERS TO SEE SWB.ACT. =0<<s=s=0 
;THEN =1 FOR THE WINK OF SWB.ACT, <<sssseees 

DEC RO 300 SOME TIME HERE <<==ss2e=-2= 

BNE .-2 3<(seeseess 
FRRESASTASAESAEAEASESESEKASSSEASSEESEKEREAAAREASARARERAEEALEAES ASAE LEAR ERELE 

JSR PC ,CONNEC :GO CONNECT 

JSR PC ,CONID sGO CONVERT SLAVE ID 

MOV #1$,8VECO sSET RETURN 

TST TRIN sCAN WE TEST RESET IN NEUTRAL? 

BNE 6$ R=NO 


; 
MOV DEVRW, BDEVAD sLOAD READ/WRITE BITS 
CMP DEVRW, @BDEVAD sLOADED? 


BEQ 6$ ;BR=YES 
TYPE .65$ 3s TYPE ASCIZ STRING 
BR 64$ 3;GET OVER THE ASCIZ 
—_— -ASCIZ <200>/ERROR2F! COULDN'T LOAD EXTERNAL DEVICE REGISTER.../ 
MOV DEVAD, -( SP) :;SAVE DEVAD FOR TYPEOUT 
TYPOC 3:GO TYPE--OCTAL ASCIICALL DIGITS) 
MOV #-1, TRIN ;SET SLAG FOR NO TEST 
6$ MOVB #101,8CSR sENABLE INTERUPT 
S THIS IS ABOUT 4 SECS. 
MOV #60,R1 sMUST ALLOW SUFFICIENT TIME FOR HRDW DELAY<=== 
CLR RO ;SET TIMER 
15$: INC RO ;TIME OUT 
BNE --2 ;BR IF NOT DONE 
DEC RL << seeaeesese 
BNE 15$ sNE= ADD ANOTHER LOOP<<===== 
TYPE .67$ +; TYPE ASCIZ STRING 
BR 66$ +;GET OVER THE ASCIZ 
+ lg -ASCIZ <200>/ERROR2A! NO EXTERNAL REQUEST INTERUPT DETECTED. CSR= / 
MOV acsR ,BAD sSAVE CSR 
MOV BAD, -( SP) 3sSAVE BAD FOR TYPEOUT 
TYPOC 3;3GO TYPE--OCTAL ASCIICALL DIGITS) 
HALT 
a BR --2 
MOV (SP)+,RO +;POP STACK INTO RO 
MOV C(SP)+,RO 3;POP STACK INTO RO 
MOV 8CSR BAD sSTORE CONTENTS OF CSR 
BIT #10000 ,BAD sMAKE SURE EXT INT IS SET 
BNE 2$ ;BR = OK 
TYPE 69% 3; TYPE ASCIZ STRING 
BR 68$ +;GET OVER THE ASCIZ 
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MULTIPORT TEST 


011312 
1401 011312 
011316 
1402 011320 
1403 011522 
1404 011524 
1405 011532 
1406 011334 
011340 


011426 
1407 011426 

011432 
1408 011434 
1409 011436 
1410 011440 
1411 011446 
1412 011452 
1413 011456 

011462 


011544 
1414 011544 
011550 
1415 011552 
1416 011554 
1417 011556 
011556 
011560 
011562 
1418 011564 
1419 011570 
1426 011572 
011576 


011646 
1421 011646 
1422 011654 

011660 
1423 011662 
1424 011664 
1425 011666 
1426 011674 
1427 011700 
1428 011704 


-— 


016746 
1044 


017767 
016746 
104402 
000000 
000776 
012777 
005077 
005067 
000207 


167610 


170400 
011342 


167474 


011556 
166324 
010110 
011464 


170052 


170032 
011600 


167750 
167246 


022600 
167722 
166072 





68$ 


167574 2%: 


33718: 


708: 


170156 3%: 


33 73$: 


72$: 


4$: 


aga 


167252 


167730 5$: 


33698: 


-ASCIZ 


<200>/ERROR2B! EXTERNAL INTERUPT NOT SET. CSR= / 


BAD, -( SP) +s3SAVE BAD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


.-2 
COVID,BAD sCORRECT SLAVE ID? 
3$ sBR=YES 
.71$ ss TYPE ASCIZ STRING 
70$ 33GET OVER THE ASCIZ 
<200>/ERROR2C! EXTERNAL REQUEST FROM WRONG PORT. CSR= / 
BAD, -( SP) +sSAVE BAD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 
--2 
04$,8VECO sSET RETURN 
PSW sLOWER PRIORITY 
PC ,WAITOS sWAIT 
73% ssTYPE ASCIZ STRING 


72$ 33GET OVER THE ASCIZ 
<200>/ERROR2D! SLAVE DIDN'T TAKE SHARED BUSS. CSR= / 


aCsR, -(SP) +sSAVE @CSR FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


--2 

(SP)+,RO 3sPOP STACK INTO RO 
(SP)+,RO 3sPOP STACK INTO RO 
C(SP)+,RO 33POP STACK INTO RO 
acsR sTIMEQUT SET? 

S$ sBR=YES 

.75$ 3s TYPE ASCIZ STRING 
743 3sGET OVER THE ASCIZ 
<200>/ERROR2E! NO TMO ON INTERUPT. CSR= / 
@CSR BAD sSAVE CSR 

BAD, -( SP) 3sSAVE BAD FOR TYPEOUT 


33GO TYPE--OCTAL ASCIICALL DIGITS) 


-72 
@00PS,@VECO sRESET RETURN 
acsrR 


sCLEAR CSR 
PSW sLOWER PRIORITY 
PC sEXIT 












SEQ 0046 


(OS Se een 
MACRO M1200 24-MAY-85 11:37 PAGE 37 


-MAIN. 
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1430 


r-— 


011706 
011706 
011712 


011716 
011722 
011724 
011726 
011730 
011732 


011734 
011742 
011750 
011752 
011752 
011754 
011756 
011762 
011764 
011772 
011776 


004767 
004767 


012701 


014464 
007724 


000010 


011752 
060101 


167640 


167632 
012000 


167056 


167540 
022600 
165702 





167662 
167652 


167134 


167534 





SEQ 0047 


FRRREAEEAAEEEEESEEEEEAREERERERAEAEESEAREERERAEARERELEEEEEERE EE 


sSEND CONNECT REQUEST EXPECT REJECTION (SLAVE_TEST_3) 
SRRRREEREEERERERERED SEES EE EEEEES ESOS ODES ESE EE 1OEE EE EEEEEE ED 


FUNCTS: 

JSR PC .CNTLC sIS IT CONTROL C? 

JSR PC ,,SYNCUP sWAIT FOR MASTER TO START 
SROREREREREREREEEEEESEEREREEEEEEEE REREAD DE OE EERE ES OO OS OE OEE OE EEE EEEREREREE EEE 
sALLOW 400 + M.S. FOR HROW DELAY TO PASS SO EXT REQ. CAN BE SEEN BY MASTER 


MOV #10,R1 sSTALL FOR 300 + MS<<sssses02 
CLR RO 3 << sesesssesess 
15$: ae i sSPIN LOOP= 65KX300X10-6 OR 300+M.S.<<ss2s 
DEC R1 << essen 
BNE 15$ 300 ANOTHER LOOP=NE 
FERRAERAEEEEAEEEEEEREREREEEAEREEASSES ORES EEERES ES EREREEEDERELES EAE EEEEEREREREEES 
MOV $3$,OVECO sSET RETURN 
MOV #101,8CSR sSET IE + REQ 
5 WAIT sWAIT FOR INTERUPT 
$: 
MOV CSP)+,RO 3;POP STACK INTO RO 
MOV (SP)+,RO 3;POP STACK INTO RO 
TST acsR 3 TIMEOUT? 
BMI 4s sBR=YES 
MOV @CSR ,BAD sSAVE CSR 
TYPE 658 ss TYPE ASCIZ STRING 
BR 64$ 3;GET OVER THE ASCIZ 
nt -ASCIZ <200>/ERROR3B! NO TIMEOUT DETECTED. CSR=/ 
MOV BAD, -C SP) ;;SAVE BAD FOR TYPEOUT 
TYPOC +3GO TYPE--OCTAL ASCIICALL DIGITS) 
HALT 
BR --2 
4$: CLR acsR sCLEAR + DISCONNECT 
MOV #00PS,@VECO s;RESET RETURN 
CLR PSW ;LOWER PRIORITY 
RTS PC s;EXIT 
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MULTIPORT TEST SEQ 0048 
1464 FRREAEEREAEEREAAEERE EEE ES ES ED EE EEEEEEEEEEEEEDED ODODE ES EE EE EEDEEEEEEEEREEES 
1465 ;SEND CONNECT REQUEST EXPECT CONNECTION (SLAVE_TEST_4) 

1466 FRAKES ERERERERERERERASASESED ODER ES EERE EE EEEEEEEEEEEEEEEDEEDEEREREEEERES 
1467 
1468 012076 FUNCT4: 
1469 012076 004767 014274 JSR PC ,CNTLC 3IS IT CONTROL C? 
1470 012102 004767 007534 JSR PC .SYNCUP ;WAIT FOR MASTER 
1471 Pitti itt iii tit ii tt Tt titi tit TTT TTT TTT TTT TTT TTT TTT TT TT TTT TTT TT TT TT TTT TTT TTT tT 
phe ;ALLOW 400 + M.S. FOR HRDW DELAY TO PASS SO EXT REQ. CAN BE SEEN BY MASTER 
1474 012106 012701 000010 MOV #10,R1 sSTALL FOR 300 + MS<<sss22222 
1475 012112 005000 CLR RO 3 <<(sseaesssana2 
1476 012114 005200 15$: INC RO ;SPIN LOOP= 65KX300X10-6 OR 300+M.S.<<=222 
1477 012116 001376 BNE .-2 
1478 012120 005301 DEC Ri 3<<saee8 
1479 012122 001374 BNE 15$ 300 ANOTHER LOOP=NE 
1480 FRRRREEEEAEAEEEEEREEREEEREEAEASSAASESEERESERARAAREEREEEERRERERERERLERAEALERALEA 
1481 ; MOV TIMA, TEMP1 ;SET TIMER 
1482 F ASL TEMP1L 
1483 321$: BIT #20000, 8CSR ;SWB ACT SET? 
1484 3 BEQ FUNCT4 ;BR=NO 
1485 3 DEC TEMP1 
pon F BNE 21$ 
1488 012124 012777 012142 167472 MOV #3$,8VETCO 3SET RETURN 
1489 012132 012777 000101 167462 MOV #101,98CSR ;SET IE + REQ 
1490 012140 000001 WAIT sWAIT FOR INTERUPT 
1491 012142 3$: 
012142 012600 MOV (SP)+,RO 3:POP STACK INTO RO 
012144 012600 MOV (SP)+,RO 3:POP STACK INTO RO 
1492 012146 105777 167450 TSTB acsrR ; CONNECTED? 
1493 012152 100437 BMI 4$ ;BR=YES 
1494 012154 017767 167442 166744 MOV @CSR BAD sSAVE CSR 
1495 012162 104401 012170 TYPE .65$ 3s TYPE ASCIZ STRING 
012166 000424 BR 64$ 3:GET OVER THE ASCIZ 
snaees geet -ASCIZ <200>/ERROR4B! CONNECT REQUEST FAILED. CSR=/ 
1496 012240 016746 166662 MOV BAD, -( SP) 3:;SAVE BAD FOR TYPEOUT 
012244 104402 TYPOr 3:3GO TYPE--OCTAL ASCIICALL DIGITS) 
1497 012246 000000 HALT 
1498 012250 000776 BR --2 
1499 012252 005767 167500 4$: TST TRIN — WE TEST RESET IN NEUTRAL 
1500 012256 001036 BNE S$ R= 
1501 012260 036777 167356 167350 BIT DEVRC, 8DEVAD FRESET CONDITIONS MET? 
1502 012266 001432 BEQ 5$ :BR=YES 
1503 012270 104401 012276 TYPE ,67$ 3: TYPE ASCIZ STRING 
012274 000424 BR 66$ 3;GET OVER THE ASCIZ 
neonas Ty oh -ASCIZ <200>/ERROR4C! NO RESET IN NEUTRAL DETECTED. / 
1504 012346 012767 177777 167402 MOV #-1, TRIN ;CANCEL FURTHER TESTING OF RESET IN NEUTRAL 
1505 012354 005077 167242 5$: CLR acsR ;CLEAR + DISCONNECT 
1506 012360 012777 022600 167236 MOV @00PS,8VECO ;RESET RETURN 
1507 012366 005067 165404 CLR PSW ;LOWER PRIORITY 
1508 012372 000207 RTS PC s;EXIT 


- 
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012374 
012374 
012400 
012404 
012406 
012412 
012420 
012422 
012424 
012426 
012430 
012432 
012436 


012510 
012510 
012512 
012514 
012522 
012524 


012374 


013776 
007104 


000400 
167312 167202 


012440 


167210 167100 





SEQ 0049 


jREREEEEEEEEEE SEES EEEE ESOS 640406 06 0006446400004 OS OSES OEE OS OE EEOREREE DEES 


sOBSERVE REQUEST INDICATORS (SLAVE _TEST_S) 
 Tachacachatnchasnnshtetathtaetehncacaeent niet LLL LLL LLL LLL LTT TT TT TTT TTT ttt 


FUNCTS: 


JSR PC ,CNTLC sIS IT CONTROL C? 
JSR PC ,CONID sGO CONVERT PORT ID 
CLR RO sSET TIMERS 
MOV #400 ,R1 
1$: BIT COVID, aCsR sLOOK FOR REQUEST 
BNE 2$ sBR=FOUND IT 
INC RO sTIME OUT 
BNE 1$ 
DEC R1 
BNE i$ 
TYPE .65$ ssTYPE ASCIZ STRING 
BR 64$ 3sGET OVER THE ASCIZ 
saa -ASCIZ <200>/ERRORSA! NO REQUEST ACTIVITY DETECTED. / 
HALT 
BR --2 
2s: BIT COVID, CSR sDID IT GO AWAY? 
BNE 2$ sBR=NOT YET 
RTS PC sEXIT 
TABM: FUNCT1 ;DISPATCH TABLE FOR MULTIPORT TEST 
FUNCT2 
FUNCTS 
FUNCT4 
FUNCTS 
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012714 
1562 012714 017746 

012720 104402 
1563 012722 000000 
1564 012724 000776 
1565 012726 012706 
1566 012732 005067 
1567 012736 005777 
1568 012742 100007 
1569 012744 000240 
1570 012746 000240 
1571 012750 000240 
1572 012752 005067 
1573 012756 000167 
1574 012762 012767 


1578 012770 005767 
1579 012774 001052 
1580 012776 016777 


1588 013136 004767 
1589 013142 104401 
013146 000432 


177777 


166762 


166636 
166630 


013022 


166524 


177777 
013246 


165224 
167142 
167024 


167014 
167004 


166754 


166632 
166624 


166634 
166474 
006502 


-SBTTL 
-SBTTL BIPORT TEST IN DTO3 MODE 
-SBTTL 


MULDTS3: 
JSR PC ,CNTLC 
MOV #0 ,PSW 
CLR @csR 
MOV #2000, CYCLE 
CLR TRIG 

1$: BIT #20000 ,8CSR 
BEQ 11$ 
BP 21% 


118: MOV #2$,8VECO 


MOV #101,8CSR 
JSR PC ,WAIT2O 
TYPE .65$ 
BR 64$ 
= -ASCIZ <200>/ERROR6! NO 
Vv @csR, -C(SP) 
TYPOC 
HALT 
BR 2 
2s: MOV @STACK ,SP 
CLR PSW 
TST acsR 
BPL 3$ 
NOP 
NOP 
NOP 
218: CLR ONOF F 
JMP SECT4 
3$: MOV @-1, ONOFF 


sSECTION 2 : WAIT FOR EXTERNAL REQUEST THEN RELEASE SWITCH 


SECT2: TST — 


BNE 2 

MOV DEVRW, @DEVAD 
CMP DEVRW, @DEVAD 
BEQ 2s 

TYPE .65$ 


BR 64% 
T+ -ASCIZ <200>/ERROR7TA! COULDN'T LOAD EXTERNAL DEVICE REGISTER. ./ 


Vv DEVAD, -( SP) 
TYPOC 
MOV @-1, TRIN 
2s: MOV #1$,8VECO 


MOV #632, TOCK 
JSR PC WAIT 
TYPE .678 

BR 66$ 











SEQ 0050 


sIS IT CONTROL C? 

sLOWER PRIORITY 

sSTART WITH A CLEAR REGISTER 
sSET SUB COUNT 

sCLEAR TRIGGER 


sGO BE SLAVE 
sSET RETURN 


ss TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 
"INTERUPT AFTER CONNECT REQUEST. CSR= / 


:;SAVE @CSR FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


sRESET STACK 
;LOWER PRIORITY 
: TIMEOUT? 
;BR=NO 


sINDIACATE FIRST SLAVE 
sGO TO SECTION 4 
sINDIACATE FIRST MASTER 


-_ WE TEST RESET IN NEUTRAL 


3 

sLOAD DEVICE REGISTER 

30K? 

sBR=YES 

ss TYPE ASCIZ STRING 
3:;GET OVER THE ASCIZ 


s+sSAVE DEVAD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 

sCANCEL FURTHER TESTING OF RESET IN NEUTRAL 
sSET RETURN 

sSET DELAY FOR 5S SECONDS 


ss TYPE ASCIZ STRING 
3sGET OVER THE ASCIZ 






























































-MAIN. 


1591 013242 
1592 013244 
1593 013246 
1594 013252 
1595 013260 
1596 013266 
1597 013274 
1598 013276 

013302 


1602 013370 
1603 013372 
1604 013374 
1605 013402 
1606 013406 
1607 013412 
1608 013416 
1609 013420 
1610 013426 
1611 013430 
1612 013434 
1613 013442 
1614 013450 
1615 013454 
1616 013460 

013464 


013544 
1617 013544 

013550 
1618 013552 
1619 013554 
1620 013556 
1621 013562 
1622 013566 
1623 013570 

013574 


013652 
1624 013652 

013656 
1625 013660 
1626 013662 
1627 013664 
1628 013670 
1629 
1630 


013234 
1590 013234 
013240 
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001100 
166034 


013576 


165744 


165732 
164102 













ue -ASCIZ <200>/ERROR7! NO EXTERNAL INTERUPT REQUEST SEEN. 








@CSR,-C(SP) s+sSAVE @CSR FOR TYPEOUT 
ot 33GO TYPE--OCTAL ASCIICALL DIGITS) 
BR --2 
18; MOV @STACK ,SP sRESET STACK 
165644 MOV KONST , GOOD 
165636 ADD #30301 ,GO0D 
166326 CMP GOOD ,@CSR sMAKE SURE IT’S AN EXTERNAL REQUEST 
BEQ SECT2A sBR=0K 
TYPE .698 ss TYPE ASCIZ STRING 
R 68$ 3sGET OVER THE ASCIZ 
T+ sta -ASCIZ <200>/ERRORS! UNEXPECTED INTERUPT TYPE. CSR= / 


@CSR, -(SP) ssSAVE @CSR FOR TYPEOUT 


33GO TYPE--OCTAL ASCIICALL DIGITS) 


SECT2A: BR 1$ sRELEASE TYPE SWITCHBACK 
BR SECT2B sGO DO PASSIVE RELEASE 
177766 18: MOV #240, SECT2A sTURN SWITCHBACK 
SECT2D: CLR @csR sDROP SWITCH ACTIVELY 
CLR PSW sLOWER PRIORITY 
TSTB @csR sDROPPED? 
BMI 74 sBR=NO 
166174 BIT #20000, 8CSR sPICKED UP? 
BEQ .-6 sBR=NO 
JMP SECT2C sGO TO EXIT 
177726 SECT2B: MOV #401, SECT2A sTURN SWITCHBACK 
166154 MOV 1%, 8VECO sSET RETURN 
CLR PSW sLOWER PRIORITY 
JSR PC ,WAIT2O 3GO WAIT FOR TIMEOUT 
TYPE .65$% ss TYPE ASCIZ STRING 
64$ 3sGET OVER THE ASCIZ 
+ ASCIZ <200>/ERROR9! No’ TIMEOUT INTERUPT DETECTED. CSR= / 


MOV @CSR,-CSP) 3sSAVE @CSR FOR TYPEOUT 
TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
HALT 
BR --2 
i$: MOV @STACK , SP sRESET STACK 
TST @cCsSR sMAKE SURE IT'S A TIMEOUT 
BMI SECT2D sBR=0K 
TYPE 67% ss TYPE ASCIZ STRING 
66% 33GET OVER THE ASCIZ 
one -ASCIZ <200>/ERROR1O! INTERUPT NOT CAUSED BY TMO. CSR= / 
MOV @CsR,-CSP) ssSAVE @CSR FOR TYPEOU 
TYPOC 33GO TYPE--OCTAL ASCITCALL OIGITS) 
HALT 
BR 72 
SECT2C: CLR @cCsR sCLEAR CSR 
CLR PSW sLOWER PRIORITY 


sSECTION 3 : SEND REQUEST EXPECT REJECTION 





CSR= / 





1632 013674 
1633 013702 
1634 013706 
1635 013714 
1636 013722 
1637 013726 

013732 


1639 014012 
1640 014014 
1641 014016 
1642 014022 
1643 014026 
1644 014030 

014034 


014114 
1645 014114 

014120 
1646 014122 
1647 014124 
1648 014126 
1649 014132 
1650 014136 
1651 014142 
1652 014144 
1653 


1656 014150 
1657 014156 
1658 014164 
1659 014170 

014174 


1665 014272 
1666 014300 
1667 014306 
1668 014310 

014314 


014362 
1669 014362 

014366 
1670 014370 
1671 014372 
1672 


012767 


012777 
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648 
<200>/ERROR11! NO INTERUPT DETECTED. 


33GE ASCIZ 
©200>/ERRORI3! NO’ INTERUPT DETECTED. 


668 33GE 
<200>/ERROR14! COULD NOT CONNECT. 


sSET MINIMUM TIME 

3GO WAIT 

3SET RETURN 

sSEND REQUEST 

3GO WAIT FOR TIMEOUT 

ss TYPE ASCIZ STRING 

3sGET OVER THE ASCIZ 

CSR= / 


ssSAVE @CSR FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


sRESET STACK 

3s TIMEOUT? 

sBR=YES 

ss TYPE ASCIZ STRING 

33GET OVER THE ASCIZ 
INTERUPT NOT CAUSED BY TMO. 


ssSAVE @CSR FOR TYPEOUT 
3sGO TYPE--OCTAL ASCIICALL DIGITS) 


CSR= / 


sCLEAR CSR 
sLOWER PRIORITY 
sIS — SET? 


3 s 
sFINISHED A SUB PASS 


sSET RETURN 
sSEND REQUEST 
sGO WAIT FOR TIMEOUT 
ss TYPE ASCIZ STRING 
T OVER THE A 
CSR= / 


3sSAVE 8CSR FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 
sRESET STACK 


sCONNECTED? 
sBR= YES 


1A TYPE ASCIZ STRING 
T OVER THE ASCIZ 
CSR= / 


ssSAVE @CSR FOR TYPEQUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


000001 005736 SECT3: MOV #1,TOCK 
005672 JSR PC WAIT 
014016 165710 MOV #1%,8VECO 
000101 165700 MOV #101,8CSR 
005624 JSR PC ,WAIT20 
013734 TYPE 65% 
a 65%: ASCIZ 
165612 MOV OCSR,-CSP) 
TYPOC 
HALT 
BR -2 
001100 1%: MOV @STACK ,SP 
165574 TST ac 
BMI 2s 
014036 TYPE a 
3 tg : .ASCIZ <200>/ERROR12! 
165502 MOV @CsR ,-(SP) 
TYPOC 
HALT 
8R --2 
165476 2s: CLR ecsR 
163640 CLR PSW 
005422 TST TRIG 
BEQ SECT4 
000644 JMP MULEND 
sSECTION 4 : SEND REQUEST EXPECT CONNECTION 
014260 165446 SECT4: MOV #1$,8VECO 
000101 165436 MOV #101 ,8CSR 
005362 JSR PC ,WAIT20 
014176 _ Pie 
3365%: .ASCIZ 
64%: 
165350 MOV OcsR,-(SP) 
TYPOC 
HALT 
BR -2 
001100 18: MOV @STACK .SP 
165462 164632 MOV KONST GOOD 
020301 164624 ADD #20301 .GO0D 
164620 165314 CMP GOOD . 8c 
BEQ SECT 
014316 TYPE 678 
33678: .ASCIZ 
668: 
165234 MOV @CSR,-C(SP) 
TyYPOC 
HALT 
BR --2 


-MAIN, 


—— 


1673 
1674 
1675 
1676 
1677 
1678 
1679 
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014374 
014400 
014402 
014410 
014412 
014416 


014476 
014476 
024504 
014512 
014516 
014522 
014526 


014610 
014610 
014614 
014616 
014620 
014622 
014626 
014634 
014642 
014650 
014652 
014656 


014726 
014726 
014732 
014734 
014736 
014740 
014746 
014754 


014760 
014764 
014766 
014772 
014776 
015000 
015002 
015010 


015014 
015020 
015022 
015030 
015034 
015042 
015046 
015052 





005767 
001041 
036777 
001435 
104401 
000427 


012767 
012777 
005067 
004767 
104401 
000430 


165356 
165234 
014420 


177777 
014622 
163260 
005030 
014530 


165006 


001100 
165120 
030301 
164256 


014660 


164670 


000101 
022600 
163016 


164742 


175776 
164746 


177777 
175754 


164724 


012540 
004276 
015046 
004264 
004500 
175462 





165226 


165252 
165112 


164270 
164262 
164752 


164654 


164650 


004554 


004400 
004366 


sSECTION 5 :DETECT EXTERNAL REQUEST AND REJECT IT 
SECTS: TST TRIN sCAN WE TEST RESET IN NEUTRAL? 


BNE 38 sBR=NO 

BIT DEVRC , BDEVAD sRESET CONDITION MET 

BEQ 3$ sBR*=YES 

TYPE -65$ ss TYPE ASCIZ STRING 

BR 64% 33GET OVER THE ASCIZ 
i -ASCIZ <200>/ERRORISA! COULON: T DETECT RESET IN NEUTRAL./ 

$: 

MOV @-1, TRIN sCANCEL FURTHER TESTING OF RESET IN NEUTRAL 
3$: MOV #13, 8VECO sSET RETURN 

CLR PSW sLOWER PRIORITY 

JSR PC ,WAIT2O GO WAIT 

TYPE .67$ ss TYPE ASCIZ STRING 

BR 66$ 3sGET OVER THE ASCIZ 
lsd -ASCIZ <200>/ERRORIS! NO EXTERNAL REQUEST DETECTED. CSR= / 

$: 
MOV acsR, -(SP) ssSAVE 8CSR FOR TYPEOUT 
bot» 3:GO TYPE--OCTAL ASCIICALL DIGITS) 
i 

BR .-2 

1$: MOV @STACK ,SP sRESET STACK 


MOV KONST , GOOD 
ADO #30301 ,GO0D 


CMP GOOD ,8CcsR sEXT. INT. ? 
BEQ es 3;BR=0K 
TYPE 693 ssTYPE ASCIZ STRING 
BR 68$ 33;GET OVER THE ASCIZ 
— -ASCIZ <200>/ERRORI6! UNEXPECTED INTERUPT. CSR= / 
$: 
MOV csr, -(SP) :;SAVE @CSR FOR TYPEOUT 
TYPOC 3;GO TYPE--OCTAL ASCIICALL DIGITS) 
HALT 
BR --2 
2s: MOV #101,8CSR sCLEAR EXT. INT. 
MOV #00PS,aVECO sRESET RETURN 
CLR PSW sLOWER PRIORITY 
OT3SP: DEC CYCLE sCOUNT A SUBPASS 
BEQ i$ :BR=DONE 
JMP SECT2 ; CONTINUE 
1$: TST ONOF F sFIRST MASTER OR SLAVE 
BEQ es ;BR=SLAVE 
BR MULEND sMASTER REPORTS ENDPASS 


2s: MOV #-1, TRIG sSET TRIGGER FOR SLAVE 
JMP SECT2 sCONTINUE SLAVE AT SECT2 


MULEND: TST ONOF F sWAS THIS FIRST SLAVE? 


BEQ 1$ sBR=YES 

MOV @MULDT3,$RTNAD ;SET RETURN 

JMP SEOP+2 :GO DO ENDPASS 
1$: MOV #23, $RTNAD sSET RETURN 

JMP $EOP +2 :GO DO ENDPASS 
2s; JSR PC ,WAIT20 sWAIT 2 SECONDS 


JMP MULDT3 :GO TO IT! 






SEQ 0053 
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1719 
1720 
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025110 


015170 
015170 
015172 
015174 
015202 
015204 
015219 


015272 
015272 
015276 
015300 
015302 
015306 
015310 
015316 
015324 
015326 
015332 


015422 
015422 
015426 
015430 
015432 
015436 
015440 
015440 
015444 


015522 
015522 
015524 
015526 
015534 
015536 
015542 


015626 
015626 
015632 
015634 





011314 
164546 


001060 


011276 
164516 
015112 


002000 164420 


015212 


164324 


011070 


000001 164304 
000001 164276 


015334 


164174 


010740 


015446 


000001 164066 
015544 


163770 


-SBTTL 


-SBTTL MANUAL INTERVENTION TEST 


MANIN: 


MANMOD : 


2s: 


33698: 
68$: 


3$: 


33718: 
708: 


3373$: 
72$: 


PC .CNTLC sIS IT CONTROL C? 

DTO3 sCHECK DTO3 MODE 

MANMOD sBR=DT07 MODE 

PWROK sSKIP OVER MANUAL MODE TEST IF DTO3 
PC ,CNTLC sIS IT CONTROL C? 

acsR sCLEAR CSR 

.65$ ss TYPE ASCIZ STRING 


64$ 33GET OVER THE ASCIZ 
<200>/PUT THIS 007 IN MANUAL MODE THEN TYPE <CR>./ 


(SP)+,RO +:POP STACK INTO RO 
#2000, 8CSR sMANUAL MODE SET? 
es 3;BR=YES 
678 33 TYPE ASCIZ STRING 
66$ 3:;GET OVER THE ASCIZ 
<200>/ERROR1! MANUAL MODE (BIT10) IS NOT SET. CSR= / 
acsR,-(SP) 3:;SAVE @CSR FOR TYPEOQUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 

PC .CNTLC :IS IT CONTROL C? 
MANMOD :GO TRY AGAIN 

#1,8CSR sTRY TO SET REQ IN MAN.MOD. 
#1,8CSR ;SET? 

3$ ;BR=NO 

69$ 33 TYPE ASCIZ STRING 
68$ 3;GET OVER THE ASCIZ 

<200>/ERROR2! REQ BIT NOT DISABLED IN MANUAL MODE. CSR= / 
acsr,-(SP) 3;SAVE 8CSR FOR TYPEOUT 
3;3GO TYPE--OCTAL ASCIICALL DIGITS) 

PC ,.CNTLC :IS IT CONTROL C? 
2s sTRY AGAIN 

71$ 33TYPE ASCIZ STRING 

70$ 3;GET OVER THE ASCIZ 


<200>/CONNECT THIS DTO7 MANUALY THEN TYPE <CR>./ 


(SP)+,RO 3sPOP STACK INTO RO 

#1,8CSR sIS REQ SET NOW? 

ay sBR=YES 

.73$ ss TYPE ASCIZ STRING 

72$ 33GET OVER THE ASCIZ 

<200>/ERROR3! REQ. BIT NOT SET WHEN CONNECTED. CSR= / 
acsR,-(SP) 3sSAVE @CSR FOR TYPEOUT 


33GO TYPE--OCTAL ASCIICALL DIGITS) 











SEQ 0054 
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—— 


1757 
1758 
1759 
1760 
1761 





i 
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015636 
015640 


016142 
016142 
016146 
016150 
016152 
016154 
016154 
016160 
016164 
016170 


016236 
016236 
016240 
016242 
016250 
016252 
016256 


016330 
016330 
016334 
016336 
016340 
016342 
016346 
016352 
016356 


016426 
016426 
016430 
016432 


000700 


104410 
012600 
032777 


000001 
015660 


163666 


015750 


002000 


016056 


163454 


010216 
163436 
016172 


004000 


016260 


163266 


161430 
003100 
010360 


004000 





BR 3$ 
4$; RESET sRESET THE BUSS 
163752 BIT #1,8CSR sREQ STILL THERE? 
BNE 5$ ;BR*YES 
TYPE .75$ 33 TYPE ASCIZ STRING 
BR 743 33GET OVER THE ASCIZ 
ht -ASCIZ <200>/ERROR4! RESET CLEARED REQ. BIT. CSR= / 
$: 
MOV @CsR,-(SP) 3:SAVE @CSR FOR TYPEOUT 
List 3:GO TYPE--OCTAL ASCIICALL DIGITS) 
BR 4$ 
5$: 
TYPE .77$ 33 TYPE ASCIZ STRING 
BR 76$ 3;GET OVER THE ASCIZ 
oe -ASCIZ <200>/PUT THIS pT07 IN PROGRAMMABLE MODE THEN TYPE <CR>./ 
6$: 
ROCHR 
MOV (SP)+,RO 33POP STACK INTO RO 
163554 BIT #2000, 8CSR sMAN.MOD. GONE? 
BEQ PWROK ;BR=YES 
TYPE ~79$ 33 TYPE ASCIZ STRING 
BR 78$ ::;GET OVER THE ASCIZ 
ao -ASCIZ <200>/ERRORS! MANUAL MODE (BIT10) DION’T CLEAR. CSR= / 
8$: 
MOV acsR,-(SP) 7;SAVE @CSR FOR TYPEOUT 
TYPOC 3:GO TYPE--OCTAL ASCIICALL DIGITS) 
HALT 
BR 5$ 
PWROK: 
JSR PC ,.CNTLC :IS IT CONTROL C? 
CLR acsR sCLEAR DEVICE 
TYPE .65$ 33 TYPE ASCIZ STRING 
BR 64$ 3;GET OVER THE ASCIZ 
3365$: .ASCIZ <200>/POWER UP ALL DTO7S THEN TYPE <CR>./ 
64$: 
RDCHR 
MOV (SP)+,RO 3;POP ry INTO RO 
163352 1%: BIT #4000, CSR sPWROK OK? 
BNE 2$ ;BR=YES 
TYPE .67$ pb ting ASCIZ STRING 
BR 66$ ;GET OVER THE ASCIZ 
3367$: .ASCIZ <200>/ERROR6! PUR, OK (BIT11) NOT SET. CSR= / 
66$: 
MOV acsR,-(SP) +;SAVE @CSR FOR TYPEQUT 
= 3;GO TYPE--OCTAL ASCIICALL DIGITS) 
HAL 
BR PWROK 
2$: CLR PSW ;LOWER PRIORITY 
JSR PC ,CONNEC :GO CONNECT 
TYPE 69% 3: TYPE ASCIZ STRING 
BR 68$ 3;GET OVER THE ASCIZ 
3369%$: .ASCIZ <200>/POWER DOWN OTHER CPU THEN TYPE <CR>./ 
68$: 
ROCHR 
MOV (SP)+,RO +;POP STACK INTO RO 
163162 BIT #4000, aCSR ;PWROK NOT OK? 


SEQ 0055 
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1792 016440 
1793 016442 
016446 


016526 
1794 0.65246 

016532 
1795 016534 
1796 016536 
1797 016542 
1798 016544 
1799 016552 
1800 016554 

016560 


016624 
1801 016624 
016630 
1802 016632 
1803 016634 
1804 016640 
016640 
016644 


016734 
1805 016734 
1806 016736 


1808 016740 
1809 016740 
1810 016744 
1811 016750 
1812 016754 
1813 016762 
1814 016770 
1815 016774 

017000 


017056 
1816 017056 
1817 017060 
1818 017062 
18:9 017070 
1820 017072 

017076 


017152 
1821 017152 

017156 
1822 017160 
1823 017162 
1824 017164 
1825 017170 
1826 017172 
1827 017176 

017202 


001441 
104401 
000427 


017746 
104402 
000000 
004767 
000677 
032777 
001032 


014450 


163070 


007634 
000200 
016562 


162772 


177314 
016646 


007432 
162652 
000024 
017164 
000100 
161002 
017002 


040000 


017100 


16.2404 


001100 


000024 
017204 





163050 


000024 
162632 


162532 


33718: 
70$; 


3$: 


33738: 


72$: 


4$: 


33758: 
74$: 


SWBPWF : 


i$: 


33658: 
64$: 


33678: 
66$: 


11$: 


33698: 


B 
-ASCIZ 





SEQ 0056 

3$ sBR=0K 
Uy ss TYPE ASCIZ STRING 
70$ 33GET OVER THE ASCIZ 
<200>/ERROR7! PUR. OK (BIT11) NOT CLEARED. CSR= / 
OCSR, -(SP) +;SAVE @CSR FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
“_ sIS IT CONTROL C? 
#200,8CSR sSTiLL CONNECTED? 
43 sBR=YES 
.73$ ss TYPE ASCIZ STRING 


72$ 33GET OVER THE ASCIZ 
<200>/ERRORS! LOST SHARED BUSS. CSR= / 


acsr,-(SP) +sSAVE @CSR FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


PWROK 
.75$ ss TYPE ASCIZ STRING 
74$ 33GET OVER THE ASCIZ 


<200>/REST ORE ALL DTO7S TO ORIGINAL STATE THEN TYPE <CR>./ 


(SP)+,RO 33POP STACK INTO RO 
PC,CNTLC IS IT CONTROL C? 
acsR s;CLEAR DEVICE 
SePWRVEC , - (SP) 33PUSH @@PWRVEC ON STACK 
#11$,Q0PWRVEC ;SET RETURN 
#100,8CSR sSET I.E. 
PSW sLOWER PRIORITY 
.65$ ss TYPE ASCIZ STRING 
$ 33GET OVER THE ASCIZ 


64 
<200>/POWER DOWN THE SHARED BUSS THEN TYPE <CR>./ 


(SP)+,RO 33POP STALK INTO RO 
#40000 ,8CSR ;SWB PWF ScT? 

2$ sBR=YES 

.67$ +3 TYPE ASCIZ STRING 


66$ ;GET OVER THE ASCIZ 
<200+/ERRORS! SUB PWF (BIT14) NOT SET. CSR= / 


acCsR, -(SP) 3;SAVE @CSR FOR TYPEOUT 
+;GO TYPE--OCTAL ASCIICALL DIGITS) 


1$ 

@STACK , SP sRESET STACK 

-(SP) sPOSITION STACK 

(SP)+, @@PWRVEC 33POP STACK INTO @#PWRVEC 
.69$ 3sTYPE ASCIZ STRING 


68$ +;GET OVER THE ASCIZ 
<200>/ERRORY! TRAP THRU POWER FAIL VECTOR WHEN DISCONNECTED. CSR= / 


-MAIN. 
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1828 
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017304 
017304 
017310 
017312 
017314 
017316 
017316 
017322 


017372 
017372 
017374 
017376 
017404 
017406 
017412 


017474 
017474 
017500 
017502 
017504 


017510 
017514 
017522 
017530 
017534 
017540 
017546 
017552 


017622 
017622 
017630 
017634 
017640 


017734 
017734 
017740 
017742 
017744 


017746 
017746 
017752 
017760 
017/766 
017774 
020002 
020004 
020012 
020020 
020026 
020034 
020036 


017746 
104402 


012767 
004767 
104401 
000435 


017746 
104402 
000000 
000661 


162312 


°o 
rs 
N 
is 
n> 
4. 


040000 
017614 


162122 


177260 


162106 
017746 
020602 
160242 
001712 
000100 
017554 


011470 
001744 
017642 


161662 


006424 
161644 
000400 
000100 
020004 


161612 
161734 
060301 
161072 


020044 


162216 


000024 
162074 


162054 


002010 


161146 
161140 
161626 
000024 


162662 
161104 
161076 
161072 


68$: 


2s: 


33718: 
7N$: 


33 73$: 
72$: 


ERREN=. 
3$: 


3375$: 
74$: 


33 77$: 
76$: 


PFVSEV: 


1$: 


LLL SS SS 
PAGE 41-3 










OCSR, -(SP) ssSAVE @CSR FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
SWBPWF 
718 ss TYPE ASCIZ STRING 
70$ 3sGET OVER THE ASCIZ 
<200>/POWER UP SHARED BUSS THEN TYPE <CR>/ 
(SP)+,RO 3sPOP STACK INTO RO 
#40000, 8CSR sDID IT CLEAR? 
3$ sBR=YES 
.73$ ss TYPE ASCIZ STRING 
72$ 33GET OVER THE ASCIZ 
<200>/ERROR10! SWB PWF (BIT14) DION’T CLEAR. CSR= / 
@cSR, -(SP) +sSAVE @CSR FOR TYPEOUT 


+3GO TYPE--OCTAL ASCIICALL DIGITS) 


i$ 

acsrR ;CLEAR IT 

OPFVSEV, @OPWRVEC ;SET RETURNS 
@PWFSER, @VECO 

PSW 

PC ,CONNEC sGO CONNECT 
#100,8CSR sSET I.E. 

.75$ 3s TYPE ASCIZ STRING 
74$ 3sGET OVER THE ASCIZ 


<200>/POWER THE SHARED BUSS DOWN THEN UP./ 


#11470, TOCK sSET TIMER FOR 1 MIN. 

PC ,WAIT 

.77$ ss TYPE ASCIZ STRING 

76$ 3;GET OVER THE ASCIZ 

<200>/ERROR11! NO EVIDENCE OF POWER FAILURE DETECTED. CSR= / 


acsr, -(SP) 3sSAVE @CSR FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


3$ 

PC ,CNTLC sIS IT CONTRO C? 
@CSR BAD sSAVE CSR CONTINTS 
#400 ,BAD sMASK BKQ IF PRESENT 
#100,8CSR sDROP I.E. 


#1$, B@PWRVEC sPOINT TO POWER UP ROUTINE 
sIF YOU STOPPED HERE NO POWER UP TRAP OCCURED 


@CSR, TEMP2 sSTORE CSR 

KONST, GOOD sASSEMBLE GOOD DATA 
#60301 ,GOOD 

GOOD ,BAD sCORRECT AT PWR DOWN? 
2$ sBR=YES 

.65$ ss TYPE ASCIZ STRING 


-MAIN. 


-— 


1868 
1869 


1870 


1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 


1881 
1882 


1883 


1884 
1885 
1886 
1887 
1888 


1889 


1890 
1891 
1892 
1893 


1894 
1895 
1896 
1897 
1898 
1899 
1900 
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020042 


020132 
0201-2 
020136 
020140 
020144 


020522 
020564 
020564 
020570 
020572 
020576 


020602 


000433 


017767 





BR 
3365$: .ASCIZ 
64$: 

160770 V 

TYPOC 

020146 TYPE 

BR 
3:67$: .ASCIZ 
66$: 

160732 MOV 

TYPOC 

HALT 

001100 11$: MOV 
TST 
177300 JMP 
162460 160710 2%: MOV 
000400 160702 BIC 
020301 160672 SUB 
160666 160666 CMP 

BEQ 
020250 TYPE 

BR 
3:69$: .ASCIZ 
68$: 

160566 MOV 

TYPOC 

020350 TYPE 

BR 
3371$: .ASCIZ 
70$: 

160530 V 

TYPOC 

HALT 

BR 

040000 161212 3%: BIT 

BEQ 

020420 TYPE 

BR 
3373$: .ASCIZ 
72$: 

161116 V 

TYPOC 

HALT 

005662 JSR 

BR 
4$: 

020524 TYPE 

BR 
35758: -ASCIZ 
74$ 
POSTSV=. 

001100 MOV 

TST 

000024 MOV 
000454 JMP 
161014 160316 PWFSER: MOV 


64$ 
<200>/ERROR12! 
BAD, -(SP) 

.67$ 

66$ 

<200>/IT SHOULD 
GOOD, -(SP) 


tad 


#20301. GND 
Eo, BAD 


698 

68$ 
<200>/ERROR13! 
BAD, -(SP) 

.71$ 

70$ 

<200>/IT SHOULD 


GOOD, -(SP) 


11$ 

#40000, a8CSR 
4s 

.73$ 

72$ 
<200>/ERROR14! 
acsR,-(SP) 


PC ,CNTLC 
11$ 


<200>/THIS DT07 


@STACK ,SP 
-(SP) 

(SP )+, @@PWRVEC 
MANEND 


aCsR BAD 










SEQ 0058 


3:GET OVER THE ASCIZ 
CSR INCORRECT @ POWER DOWN TIME. CSR WAS / 


+sSAVE BAD FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
ss TYPE ASCIZ STRING 

Ty OVER THE ASCIZ 


ssSAVE GOOD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


sRESET STACK 
sPOSITION STACK 


GET PWR UP DATA 

sMASK BRQ IF PRESENT 

sCORRECT GOOD DATA 

sCORRECT & PWR UP? 

sBR=YES 

3sTYPE ASCIZ STRING 

33;GET OVER THE ASCIZ 

CSR INCORRECT @ POWER UP TIME. CSR WAS / 


3:SAVE BAD FOR TYPEOUT 

33;GO TYPE--OCTAL ASCIICALL DIGITS) 
3:TYPE ASCIZ STRING 

se* OVER THE ASCIZ 


+:SAVE GOOD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


:DID SWB PWF CLEAR? 
sBR=YES 
ss TYPE ASCIZ STRING 
33:GET OVER THE ASCIZ 
SUB PWF (BIT14) DIDN'T CLEAR. CSR= / 


3sSAVE S8CSR FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


IS IT CONTROL C? 


+s TYPE ASCIZ STRING 
:CFT OVER THE ASCIZ 
TRAPS ON POWER FAIL!/ 


sRESET STACK 
sPOSITION STACK 
33POP STACK INTO S@PWRVEC 


sSAVE CSR 
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1901 020610 
1902 020616 
1903 020624 
1904 020632 
1905 020640 
1906 020642 


1907 020726 
1908 020734 


1909 020756 


1910 020764 
1911 020766 
1912 020772 
1913 020774 
1914 021000 
1915 021006 
1916 021012 
1917 021020 
1918 021026 
1919 021034 
1920 021042 
1921 021044 


1922 021134 
1923 021142 


1924 021164 


1925 021172 
1926 021174 
1927 021176 


021252 
1928 021252 
1929 
1930 021256 
021256 
021262 


021324 
1931 021324 
1932 021326 





042767 
016767 
062767 
026767 
001457 
104401 
000427 


016746 


000400 
161130 
060301 
160266 


020650 


160174 
020742 


160142 


001100 


176510 
000632 
000566 
160604 
000400 
060201 
160064 


021052 


160462 
021150 


157734 


021204 


177306 


021264 


160310 
160300 
160272 
160266 


000632 


160106 
160100 
160070 
160064 
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3365$: 
64$: 


33678: 


66$: 


11$: 


18; 


3369$: 


68$: 


23 71$: 


70: 


2s: 


33 73%: 
72$: 


MANEND : 


3365$: 
64%: 


TYPE 
BR 
-ASCIZ 


HALT 
BR 


#400 ,BAD 

KONST ,GOOD 
#60301 ,GO0D 
GOOD ,BAD 

1$ 

.65$ 

64$ 
<200>/ERROR1S! 
BAD, -( SP) 

67% 

66$ 
<200>/SHOULD BE 


GOOD, - (SP) 


@STACK ,SP 
-(SP) 


ERREN 
#632, TOCK 


PC,WAIT ;GO WAIT 
@CSR BAD 


400 ,BAD 
#60201 ,GO0D 
GOOD .BAD 


2 
.69$ 


68$ 
<200>/ERROR16! CSR INCORRECT AFTER POWER UP. CSR WAS / 


acsR,-C(SP) 


.71$ 
70$ 


<200>/SHOULD BE / 
GOOD, -(SP) 


11$ 

.73$ ss TYPE ASCIZ STRING 

728 33GET OVER THE ASCIZ 
<200>/THIS DT07 INTERRUPTS ON POWER FAIL!/ 
POSTSV 

.65$ ss TYPE ASCIZ STRING 
643 GET OVER THE ASCIZ 


72 


ii 
<200>/MANUAL INTERVENTION TEST DONE./ 





SEQ 0059 





sMASK BRQ IF PRESENT 
sASSEMBLE GOOD DATA 


sCORRECT @PWR DOWN? 

;BR=YES 

+s TYPE ASCIZ STRING 

33GET OVER THE ASCIZ 

CSR INCORRECT ® POWER DOWN. WAS / 


ssSAVE BAD FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
ss TYPE ASCIZ STRING 

at OVER THE ASCIZ 


ssSAVE GOOD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


sRESET STACK 
sPOSITION STACK 


sSET TIMER FOR SSEC. 


sSAVE CSR 

sMASK BRQ IF PRESENT 

sCORRECT DATA 

sCORRECT NOW? 

sBR=YES 

ss TYPE ASCIZ STRING 
3sGET OVER THE ASCIZ 





























ssSAVE @CSR FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
3s TYPE ASCIZ STRING 

33GET OVER THE ASCIZ 








+sSAVE GOOD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 
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MANUAL INTERVENTION TEST SEQ 0060 


1934 ; NEWTST <<INSERT NEXT TEST HERE>> 





-— 





-MAIN. 
END OF PASS ROUTINE 


1936 
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021451 


157544 
157630 
157646 
100000 


021435 
157614 


021432 
000042 





157640 


000 
105 
040 
123 
043 


PAGE 43 


-SBTTL END OF PASS ROUTINE 

jj PRRROREEED EES EEO DEEDS EEEEES OSES OES OS 0000 0440000000000000008 
s*INCREMENT THE PASS NUMBER ($PASS) 

s#TYPE "END PASS @XXXXX” CWHERE XXXXX IS A DECIMAL NUMBER) 

;#IF THERES A MONITOR GO TO IT 

;*IF THERE ISN'T JUMP TO RESTRT 


$E0P 
SCOPE 
CLR $TSTNM +;ZERO THE TEST NUMBER 
CLR $TIMES 3;ZERO THE NUMBER OF ITERATIONS 
INC $PASS +s;INCREMENT THE PASS NUMBER 
BIC #100000, $PASS +;DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ 3;LOOP? 
SEOPCT: .WORD 1 
BGT $D0OAGN 33 YES 
MOV C(PC)+, CPC )+ 3sRESTORE COUNTER 
$SENDCT: .WORD 1 
SEOPCT 
TYPE » SENOMG +; TYPE “END PASS @” 
MOV $PASS, -(SP) 3:SAVE $PASS FOR TYPEOUT 
TYPOS 33GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE » $ENULL 3; TYPE A NULL CHARACTER 
$GET42: MOV 8¢42 ,RO 3;GET MONITOR ADDRESS 
BEQ $DOAGN ;s;BRANCH IF NO MONITOR 
RESET 3s;CLEAR THE WORLD 
$ENDAD: JSR PC,CRO) +:GO TO MONITOR 
NOP 3;SAVE ROOM 
NOP 33FOR 
NOP +sACTil 
$DOAGN: 
JMP aC PC)+ 3; sRETURN 
$RTNAD: .WORD RESTRT 
$ENULL: .BYTE +sNULL CHARACTER STRING 


. -1,-1,0 
$ENDMG: .ASCIZ <15><12>/END PASS #/ 





SEQ 0061 
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USER ROUTINES SEQ 0062 
1938 -SBTTL USER ROUTINES 
1939 
1940 
1941 921452 012767 000240 000006 CONNEC: MOV #240,2$ sSET SWITCH 
1942 021460 105777 160136 1%: TSTB acsR sALL READY CONNECTED? 
1943 021464 100410 BMI 3$ sBR = YES 
1944 021466 000774 2$: BR 1$ ; CONTINUE 
1945 021470 012777 000001 160124 MOV #1,9CSR s CONNECT 
1946 021476 012767 000774 177762 MOV 774,28 sRESTORE SWITCH 
1947 021504 000765 BR 1$ ;BR UNTIL CONNECTED 
pees 021506 000207 3$: RTS PC sEXIT 
1950 021510 012767 000004 160212 CONID: MOV #4 ,COVID sCONVERT SLAVE ID 
1951 021516 016700 160202 MOV CURID,RO sSAVE CURRANT ID 
1952 021522 001405 1s: BEQ 2s :BR IF DONE 
1953 021524 000241 CLC 
1954 021526 006167 160176 ROL COVID sSHIFT ID 
1955 021532 005300 DEC RO sCOUNT DOWN TO ZERO 
1956 021534 000772 BR i$ 
pd 021536 000207 2$: RTS PC sEXIT 
1959 021540 012767 000122 000072 WAIT10: MOV #122, TOCK sSET CLOCK 
1960 021546 000167 000026 JMP WAIT 
1961 021552 012767 000244 000060 WAIT20: MOV #244 , TOCK sSET CLOCK 
1962 021560 000167 000014 JMP WAIT 
1963 021564 000000 TRIG: 000 
1964 021566 012767 000051 000044 WAITOS: MOV #51, TOCK sSET CLOCK 
1965 021574 000167 000000 JMP WAIT 
1966 021600 016767 160142 000030 WAIT: MOV TIMA, TICK sSET BASE TIMER 
1967 021606 005777 160010 1$: TST acsR 
1968 021612 000400 BR .+2 
1969 021614 005367 000016 DEC TICK 
1970 021620 001372 BNE 1$ 
1971 021622 005367 000012 DEC TOCK 
1972 021626 001364 BNE WAIT 
1973 021630 005267 000004 INC TOCK 
1974 021634 000207 RTS PC 
i975 021636 000000 TICK: 0O 
1976 021640 000000 TOCK: 0 
1977 
1978 
1979 
1980 
1981 021642 005000 SYNCUP: CLR RO sSET DELAY TIME 
1982 021644 012701 000400 MOV #400 ,R1 
1983 021650 032777 020000 157744 1%: BIT #20000 ,,@CSR sBUSS ACTIVE? 
1984 021656 001434 BEQ 3 sBR=NO 
1985 021660 005200 INC RO sTIME OUT 
1986 021662 001372 BNE 1$ 
1987 021664 005301 DEC R1 
1988 021666 001370 BNE i$ 
1989 021670 104401 021676 TYPE .65$ ss TYPE ASCIZ STRING 
021674 000420 BR 64$ 33;GET OVER THE ASCIZ 
3365$: .ASCIZ <200>/SYNCRONIZATION FAILURE! CSR= / 
021736 64%: 
1990 021736 017746 157660 MOV acsR,-(SP) ssSAVE @CSR FOR TYPEOUT 
021742 104402 TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
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USER ROUTINES SEQ 0063 
1991 021744 HALT 
1992 021746 000776 BR --2 
1993 021750 005000 23: CLR RO sRESET DELAY TIME 
1994 021752 012701 000000 MOV #0 ,R1 
1995 021756 032777 020000 157636 33: BIT #20000 ,@CSR sBUSS ACTIVE? 
1996 021764 001043 BNE 4$ sBR=YES 
1997 021766 005200 INC RO sTIME OUT 
1998 021770 001372 BNE 3$ 
1999 021772 005301 DEC Ri 
2000 021774 001370 BNE 3$ 
2001 021776 104401 022004 TYPE -67$ ss TYPE ASCIZ STRING 
022002 000427 BR 66$ 3sGET OVER THE ASCIZ 
‘ = ASCIZ <200>/MASTER PORT DIDN'T TAKE SHARED BUSS! CSR= / 
2002 022062 017746 157534 MOV OCSR , -CSP) ssSAVE @CSR FOR TYPEOUT 
022066 104402 TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
2003 022070 000000 HALT 
2004 022072 000776 BR .-2 
2005 022074 000207 4$: RTS PC sEXIT 
2006 
2007 
2008 
2009 sCONSTRUCT SEQUENCER 
2010 022076 012701 001644 SEQMAK: MOV @PORTNO,R1 sSTORE ADDRESS OF DATA 
2011 022102 012702 001732 MOV @TEMP1 ,R2 sSET TEMPORARY STORAGE POINTER 
2012 022106 012703 001660 MOV @SEQ, R3 sLOAD FIRST SEQUENCER ADDRESS 
2013 022112 005067 157540 CLR EXPTCT sCLEAR PORT COUNT 
2014 022116 012122 1$: MOV C(R1)+,CR2)+ sFILL TEMP 
2015 022120 005267 157532 INC EXPTCT sCOUNT THEM 
2016 022124 005711 TST OR1i sLAST ONE 
2017 022126 100373 BPL 1$ sBR=NO 
2018 022130 012712 177777 MOV #-1,0R2 s TERMINATE DATA 
2019 022134 005001 CLR R1 sLOAD DETECTOR 
2020 022136 012702 001732 2$: MOV @TEMP1 ,R2 sRESET DATA POINTER 
2021 022142 020112 3$; CMP R1,(R2) sI0 FOUND? 
2022 022144 001407 BEQ S$ sBR=YES 
2023 022146 005722 4$: TST (R2)+ sSTEP AND TEST FOR LAST 
2024 022150 100374 BPL 3$ sBR IF NOT DONE 
2025 022152 005201 INC R1 sSTEP DETECTOR 
2026 022154 022701 000004 CMP 04 ,R1 sCHECK FOR DONE 
2027 022160 001366 BNE 2s sBR IF NOT DONE 
2028 922162 000404 BR 6$ sFINISH UP 
2029 022164 011223 S$: MOV OR2,(R3)+ sLOAD SEQUENCER 
2030 022166 012712 000400 MOV #400 ,@R2 sERASE ENTRY 
2031 022172 000765 BR 43 sCONTINUE 
2032 022174 005367 157456 6$: DEC EXPTCT sCORRECT EXTERNAL PORT COUNT 
2033 022200 012713 177777 MOV @-1,0R3 sTERMINATE SEQUENCER 
2034 022204 000207 RTS sEXIT 
2035 
2036 
2037 
2038 sROUTINE TC ASSEMBLE MENUS 
2039 022206 012767 177777 157530 MASMEN: MOV @-1, ONOFF sSET MASTER/SLAVE INDICATOR 
2040 022214 004767 000462 JSR PC .FLUSHM 3GO FLUSH MENU 
2041 022220 012701 001676 MOV @MENU,R1 sSET POINTER 
2042 022224 117721 157444 1s: MOVB QNEXENT,(CR1i)+  ;LOAD MENU WITH SLAVE ID 
2043 022230 112721 000001 MOVB #1,(R1)+ sLOAD FUNCTION #1 
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USER ROUTINES 





2044 022234 004767 000302 JSR + STPNEX sGET NEXT SLAVE ID 
2045 022240 000771 BR s CONTINUE 

2046 022242 004767 000274 2$: JSR rc. STPNEX sGO GET NEXT ID 
2047 022246 000405 BR sBR=NOT FINISHED 
2048 022250 012711 177777 MOV 2-1, 0R1 sTERMINATE MENU 
2049 022254 012704 001676 MOV @MENU, R4 sSTORE MENUS 
2050 022260 000207 RTS PC sEXIT 

2051 022262 117721 157406 3$: MOVB ONEXENT, (R1)+ 

2052 022266 112721 000002 MOVB #2,(R1)+ sLOAD FUNCTION #2 
2053 022272 000763 BR 2s sCONTINUE 

2055 

2056 022274 005067 157444 SALMEN: CLR ONOFF sCLR MASTER/SLAVE INDICATOR 
2057 022300 004767 000376 JSR PC ,FLUSHM sGO FLUSH MENU 
2058 022304 012701 001676 MOV @MENU,R1 sSET POINTER 
2059 022310 027767 157360 157326 1%: CMP GNEXENT, PORTNO ;IS THIS ME? 
2060 022316 001010 BNE 3$ sBR=NO 

2061 022320 117721 157350 MOVB QNEXENT, (R1)+ ;LOAD SLAVE ID 
2062 022324 112721 000003 MOVB @3,CR1)+ sLOAD FUNCTION 3 
2063 022330 004767 000206 2%: JSR PC ,STPNEX sGO GET NEXT ID 
2064 022334 000765 BR 1$ sBR=NOT DONE 
2065 022336 000405 BR 4$ sGO TO NEXT SET 
2066 022340 117721 157330 38: MOVB QNEXENT, (R1)+ 

2067 022344 112721 000005 MOVB oCRLD+ sLOAD FUNCTION 5 
2068 022350 000767 BR 2s s CONTINUE 

2069 022352 004767 000164 4$: JSR PC ,STPNEX sGO GET NEXT ID 
2070 022356 000405 BR 5$ sGO CONTINUE 
2071 022360 012711 177777 MOV @-1,@R1 sTERMINATE MENU 
2072 022364 012704 001676 MOV @MENU, R4 3ST MENUS 
2073 022370 000207 RTS PC sEXIT 

2074 022372 027767 157276 157244 5%: CMP QNEXENT , PORTNO iTS THIS ME? 
2075 022400 001014 BNE 7$ sBR= 

2076 022402 117721 157266 MOVE GNEXENT, (R1)+ 

2077 022406 112721 000004 MOVB 04, + sLOAD FUNCTION 4 
2078 022412 004767 000124 6$: JSR PC ,STPNEX sGO GET NEXT ID 
2079 022416 000765 BR 3$ s CONTINUE 

2080 022420 012711 177777 MOV @-1,0R1 sTERMINATE MENU 
2081 022424 012704 001676 MOV @MENU, R4 sSTORE MENUS 
2082 022430 000207 RTS PC sEXIT 

2083 022432 117721 157236 7$: MOVB QNEXENT, (R1)+ 

2084 022436 112721 000005 MOVB @5,CR1)+ sLOAD FUNCTION 5 
2085 022442 000763 BR 6$ sCONTINUE 

2086 

2087 

zoos sROUTINE TO INIT SEQUENCER 

2090 022444 012767 001660 157220 SEQINT: MOV @SEQ, SEQPTR sSET POINTER TO FIRST ENTRY 
2091 022452 012767 001662 157214 MOV @SEQ+2,NEXENT  ;GET NEXT ENTRY 
2092 022460 017705 157206 MOV SSEQPTR,RS sLOAD RS 

2093 022464 000207 RTS PC sEXIT 

2094 022466 062767 000002 157176 SEQSTP: ADD @2,SEQPTR sSTEP SEQUENCER 
2095 022474 005777 157172 TST SSEQPTR sCHECK FOR END 
2096 022500 100761 BMI SEQINT sRELOAD IF DONE 
2097 022502 017705 157164 MOV G@SEQPTR,RS 

2098 022506 016767 157160 157160 MOV SEQPTR,NEXENT  ;STEP NEXT ENTRY 
2099 022514 062767 000002 157152 ADD #2 ,NEXENT 

2100 022522 005777 157146 TST GNEXENT sOFF THE END? 











USER ROUTINES 


2111 022572 
2112 022576 


022670 
2117 022670 

022674 
2118 022676 
2119 022700 
2120 
2121 022702 
2122 022706 
2123 022712 
2124 022716 
2125 022720 
2126 022722 
2127 022724 
2128 022730 
2129 022734 
2130 022740 
2131 022742 
2132 022746 
2133 022750 


2137 022754 
2138 022754 
2139 022762 
2140 022770 
2141 022776 
2142 023004 
2143 023006 
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2101 022526 
2102 022530 
2103 022532 


2110 022570 
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001660 157134 


000002 157124 
157120 


001660 157110 
157104 


177777 


001634 
000017 
177777 


177777 


1 
177703 






2s 
PC 
@SEQ,NEXENT 
i$ 


@2 ,NEXENT 
en 
@SEQ,NEXENT 
GNEXENT,RS 


2s 
#2 ,@SP 
PC 


SSP ,BAD 


64% 33GE 
<200>/UNEXPECTED. INTERUPT FROM DTO7 AT ADDRESS.../ 
BAD, -C SP) 


sBR=FOUND 

sDID ME TIME OUT? 
on OTOS MODE 
eee tee DTO7 MODE 


sSAVE ONLY RQO-3 
sCONVERT RQ BIT 








sBR=YES 

sNO! EXIT 
sCORRECT POINTER 
sEXIT 

sSTEP NEXT ENTRY 


sOFF THE END? 
sBR=NO 


sRESET 

sBACK TO CURRENT D107? 
sBR=NO 

sSET UP FINISHED RETURN 
sEXIT 














sSAVE ERROR PC 
ssTYPE ASCIZ STRING 
T OVER THE ASCIZ 








ssSAVE BAD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 








sSET POINTER 
sSET FLUSH COUNT 
sFLUSH WITH -1 
sCOUNT 


sCONT. 

sEXIT 

sLOAD POINTER 
sSET COUNT 
3sFLUSH 


sFLUSH WITH -1 
sCOUNT 
sCONT 
sEXIT 


















sRISE PRIORITY 
sCONNECT 
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USER ROUTINES 


-— 


2154 023052 
2155 023056 





012767 
005067 
005077 
105777 
100775 
005277 
005777 
100424 
005267 
001372 
104401 
000415 


000000 
005067 
012777 
105777 
100375 
005067 
012767 
005377 
005777 
100430 
005267 
001372 


000001 


000004 
023102 


155732 


156436 


023222 


155624 


156306 


000340 
156416 
156266 
156262 


156254 
156250 


156366 
023370 


154346 
000001 
156160 


156300 
000340 
156140 
156134 


156254 





63; 


33658: 


645: 


7$: 


33678: 


66$: 


154452 


1$: 


2s: 


156164 


154320 
5$: 


OTIME: 


64 
<200>/ERROR! 


BAD, -(SP) 


--2 
R2 ,PORTNO 


<200>/ERROR! 


BAD, -(SP) 


--2 
acsrR 
PC 


#340 ,PSW 


64$ 
<200>/ERROR! TIMING TOO LONG!/ 


PSW 
#1,9CSR 
acsR 


MORE THAN ONE RQ. BIT SET. 


sBIT SET? 
sBR*YES 
sSTEP INDIACATOR 


3T00 HIGH? 

3BR =NO 

ss TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


BRO DETECTED WITHOUT ANY RQ. BIT SET. 


+sSAVE BAD FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 
sFATAL ERROR BRQ SEEN BUT NO RQ 


sLOAD PORT ID@ 


te SURE ONLY ONE RQ IS PRESENT 
Fy = 

ss TYPE ASCIZ STRING 

33GET OVER THE ASCIZ 

CSR= / 


3:;SAVE BAD FOR TYPEOUT 
3:GO TYPE--OCTAL ASCIICALL DIGITS) 


sCLEAR AND DISCONNECT AND EXIT 


;LOCK OUT INTERUPTS 
sCLEAR TIMERS 

sCLEAR DEVICE 

sMAKE SURE IT'S CLEAR 


;SET REQ 
:T™MO SET? 
;BR=YES 
COUNT 


3s TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


sLOWER PRIORITY 
sCONNECT 
sCONNECTED? 


s;CLAER WATCHDOG TIMER 
sRISE PRIORITY 

sDROP REQ 

;LOOK FOR TMO 
3BR=FOUND 


CSR= / 















SEQ 0066 


-MAIN. 
USER ROUTINES 


-— 


2240 


024122 
024122 
024124 
024126 
024132 
024136 
024142 
024144 
024150 


024262 
024262 
024266 





104401 
000421 


000000 
016700 
016701 

5002 


023504 


156172 
156170 


000031 


000033 
023620 


000044 
023716 


155614 


177777 
155736 
176676 
024034 


002054 
026206 
000131 


024152 


024270 





a 
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TYPE 67$ 3; TYPE ASCIZ STRING 
BR 66$ 3;GET OVER THE ASCIZ 
3367$: .ASCIZ <200>/ERROR! WATCHDOG TIMING TOO LONG!/ 
66$: 
HALT 
63: MOV TIMA,RO sCOMPARE TIMING FOR PROPER RATIO 
MOV TIMB,R1 
CLR R2 
MOV 625. ,R3 
78: ADD RO,R2 sMULTIPLY TIMA BY 25 
DEC R3 
BNE 7$ :BR=NOT DONE 
83: SUB R1,R2 sDIVIDE TIMA BY TIMB 
INC R3 
cmp R1,R2 ;DONE? 
BLOS 8$ :BR=NO 
CMP R3, 033 :T00 LOW? 
BHIS 9$ ;BR=NO 
TYPE 698 33TYPE ASCIZ STRING 
BR 683 33;GET OVER THE ASCIZ 
3369$: .ASCIZ <200>sERROR! WATCHDOG/REQUEST TIMER RATIO TOO LOW!s 
68$: 
HALT 
BR --2 
9$: CMP R3, 044 :T00 HIGH? 
BLOS 11$ ;BR=NO 
TYPE tae 33 TYPE ASCIZ STRING 
BR 70$ 3;GET OVER THE ASCIZ 
3371$: .ASCIZ <200>sERROR! WATCHDOG/REQUEST TIMER RATIO TOO HIGH! s 
70$: 
HALT 
BR .-2 
11$: CLR acsR sCLEAR AND DISCONNECT 
RTS PC 
sPROGRAM PARAMETER INPUT ROUTINE 
002166 GETADR: MOV #-1,PARFLG sSET PARFLG 
CLR USEPAR sCLEAR FLAG 
JSR PC ,FLUSHP ;GO FLUSH OUT PARAMETER BLOCK 
TYPE .65$ 33 TYPE ASCIZ STRING 
BR 64$ 3;GET OVER THE ASCIZ 
3365$: .ASCIZ <200>/D0 YOU WANT TO CHANGE THE DEVICE ADDRESSES?(Y OR N)/ 
64$: 
ROCHR 
MOV (SP)+,RO :STORE CHAR. 
MOVB RO,ECHOB 
TYPE »ECHOB 
cmMP #'Y,RO :YES? 
BNE 10$ ;BR=NO 
TYPE .67$ 3; TYPE ASCIZ STRING 
BR 66$ 3;GET OVER THE ASCIZ 
3367$: .ASCIZ <200>/IN THE FOLLOWING THREE PRINTOUTS TYPE THE NEW DATA OR O IF NO CHANGE. / 
66$: 
TYPE 69% 3; TYPE ASCIZ STRING 
BR 68$ 3:;GET OVER THE ASCIZ 


-MAIN, 
USER ROUTINES 


-— 


024312 
024312 
024316 
024320 
024324 
024326 
024330 
024332 
024336 
024336 
024342 


024366 
024366 
024372 
024376 
024400 
024402 
024406 
024410 
024412 
024414 
024416 
024420 
024424 
024430 
024430 
024434 


024456 
024456 
024462 
024466 
024470 
024472 
024474 
024500 
024502 
024504 
024506 
024510 
024512 
024516 
024520 
024526 
024532 
024532 
024534 
024534 
024540 


024546 
024552 


024556 
024562 





016746 


004767 
012767 


000167 
024552 
004767 
004767 
005767 


155304 
034425 


154724 
024344 


154664 
177000 


034425 


154632 
177000 


024436 


154574 
000777 


034425 


154540 


000777 
154524 


177250 
024552 


155210 
176176 


176534 
155046 





3369$: .ASCIZ 
688: 


11$: 


33718: 


70$: 


12$: 
14$: 


3373$: 


72$: 


154530 13$: 
10$: 


PARIN: 


156124 


er 
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<200>/DEVICE ADDRESS= / 


CSR, -( SP) 
» SPACE 
(SP)+,RO 
11$ 

RO, $BASE 


.71$ 
70$ 


; 
<200>/DEVICE VECTOR= / 


$VECT1,RO 
#177000,R0 
RO,-(SP) 


» SPACE 
(SP)+,RO 
12$ 
$VECT1,R1 
#177000,R1 


.73$ 
72$ 


<200>/BREAK LEVEL= / 


$VECT1,RO 
#777,RO0 
RO 
RO,-(SP) 


» SPACE 


(SP)+,RO 
13$ 


#777, $VECTL 
R1,$VECT1 


PC 


PC ,GETADR 
@REPAR , ROUTE 


START 
PC ,DMODE 


PC ,OTIME 
0TO3 






ssSAVE CSR FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


sSTORE INFO 


ss TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


3sSAVE RO FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


sSAVE IT TEMPORARILY 
sJUMP OVER NEXT TWO LINES 
sSAVE OLD VECTOR ADDRESS 
sMASK OUT JUNK 


3s TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 


3;SAVE RO FOR TYPEOUT 
3sGO TYPE--OCTAL ASCIICALL DIGITS) 


sRETURN 


sSET RETURN 


sGO GET MODE AND ID+# 
sGO GET DEVICE TIMING 
sWHAT MODE? 


-MAIN. 


USER ROUTINES 


2285 024566 
2286 024570 
024574 


024632 
2287 024632 
2288 024634 
024634 
024640 


024670 
2289 024670 
024674 
2290 024676 
024676 
024702 


00>/ O=NONE / 


— 


2291 025022 
2292 025024 
2293 025030 
2294 025032 


025312 


025372 
2303 025372 
2304 025374 
2305 025400 
2306 025402 
2307 025406 
2308 025412 
025412 
025416 


025454 
2309 025454 
2310 025456 
2311 025460 
2312 025462 
2313 025464 

025464 

025470 





001422 


104401 
000416 


000421 


104401 
000413 


016746 
104402 


104401 
000447 


104412 
012667 
001523 
104401 
000442 


104412 
012667 
104401 
000445 


104412 
012667 
005767 
001067 


104401 
000427 


104412 
012667 
001431 
012700 
016701 


104401 
000416 


104412 
012620 
005301 
001353 


104401 
000422 


024576 


024642 


154750 


024704 


154606 
025040 


154466 
025160 


154342 
154330 


025314 


154256 


001646 
154244 


025420 


025472 
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33658: 
64$: 


208: 


33678: 


66$: 


1$: 


33698: 


68$: 


33718: 


70$: 


33738: 


72$: 


2s: 


3$:4$: 


3375$: 


74$: 


5$: 
6$: 


s377$: 


76$: 


7$: 






SEQ 0069 


sBR=DT07 
ss TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


<200>/THIS DT07 Is IN DTO3 MODE./ 


1$ 
678 


sCONTINUE AT 1$ 


ss TYPE ASCIZ STRING 
3;GET a THE ASCIZ 


66$ 
<200>/THIS DT07 Is PORT@ / 


PORTNO, -(SP) 


.69$ 


33SAVE PORTNO FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


3s TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


68$ 
<200>/TYPE THE ADDRESS OF AN EXTERNAL DEVICE REGISTER ON THE SHARED BUSS./<2 


(SP)+,DEVAD 
2$ 


.71$ 
70$ 


sSTORE IN DEVAD 

sSKIP OVER NEXT TWO QUESTIONS IF NO DEVICE 
3s TYPE ASCIZ STRING 

3;GET OVER THE ASCIZ 


<200> s TYPE AN OCTAL MASK OF READ/WRITE BITS IN ABOVE DEVICE REGISTER. .#<20 


(SP)+,DEVRW 
.73$ 
72$ 


sSTORE BIT PATTERN 
3s TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


<200> s TYPE AN OCTAL MASK OF RESET-CLEARABLE BITS IN ABOVE DEVICE REGISTER. 


(SP)+,DEVRC 
DTO3 
7$ 


.75$ 
743 


<200>/HOW MANY OTHER PORTS ARE THERE TO BE TESTED?/ 


(SP)+,EXPTCT 
7$ 


#EXPRT1,RO 
EXPTCT,R1 


.77$ 
76$ 


<200>/TYPE IN EXTERNAL PORT ID../ 


(SP)+,CRO)+ 
R1 
6$ 


sSTORE BIT PATTERN 
sNO NEED TO CONTINUE IF DTO3 MODE 
sBR=DTO3 


ss TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


sSTORE EXTERNAL PORT COUNT 
GO TO 7$ 
sSET POINTER 


3s TYPE ASCIZ STRING 
+3;GET OVER THE ASCIZ 


sSTORE IT 
sCOUNT IT 
sCONTINUE LOAD IF NOT DONE 


3s TYPE ASCIZ STRING 
3;GET OVER THE ASCIZ 








(RR ARR i 
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-MAIN, 
USER ROUTINES 


/ THE MULTIPORT 


—— 


2337 
2338 
2339 
2340 


2341 
2342 


026110 
026110 
026112 
026114 
026120 
026124 


026176 
026176 
026200 
026202 
026204 
026206 


026212 
026214 
026216 
026220 


026222 
026222 
026224 
026230 


TEST!/ 


000241 
006100 
016016 
104401 
000424 


104410 
012600 
000207 
000000 

000 


000000 
002566 
002600 
002636 


012600 
104401 
000422 


034427 
000004 


000644 
000004 


025600 


000002 
154016 
153766 
025656 


000002 


025760 


026212 
026126 


200 


026232 
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33798: 
78$: 


18$: 


33818: 
80$: 


9$: 


3383$: 
82$: 


21$: 


3385$: 


84$: 
22$: 


33878: 
86$: 


PARFLG: 


000 ECHOB: 
TX: 


TRAP4: 






-ASCIZ 


SEQ 0070 
<200>/SELECT TEST. (0 FOR HELP MESSAGE)/ 


(SP)+,RO 

8$ 

» SELMS 

7$ 

#4,RO ;TEST FOR NPR? 
18$ sNO:BR 


TSTNPR ;GO CHECK FOR NPR LINE 
#4,RO  ;VALID TEST? 


9$ 

,81$ +: TYPE ASCIZ STRING 
80$ +;GET OVER THE ASCIZ 
<200>/INVALID SELECTION! / 

7$ 

#2,R0 sMULTIPORT? 

21$ ;BR=NO 

EXPTCT FONLY ONE PORT? 

21$ ;BR=NO 

DTO3 ;DT03 MODE? 

2i$ ;BR=YES 

83$ +3 TYPE ASCIZ STRING 
82$ ;GET OVER THE ASCIZ 
<200>/CAN NOT RUN THE MULTIPORT TEST WITH ONLY ONE PORT!/ 
7$ 

#2,R0 sMULTIPORT TEST? 

22$ ;BR=NO 

,85$ 1s TYPE ASCIZ STRING 
84$ ;GET OVER THE ASCIZ 


<200>/THE DTO7 WITH THE LOWEST PORT@ MUST BE STARTED LAST WHEN RUNNING/<200> 


RO 
es 
.87$ ss TYPE ASCIZ STRING 

86$ 33GET OVER THE ASCIZ 
<200>/TYPE <CR> WHEN READY TO CONTINUE TEST./ 


(SP)+,RO 
PC sEXIT 
sPARAMETERS PRESENT FLAG 
0,200,0 sECHO BYTE 
(SP)+,RO 3:POP STACK INTO RO 
.65$ 33 TYPE ASCIZ STRING 
64$ 3;GET OVER THE ASCIZ 


-MAIN. 
USER ROUTINES 


-— 
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026276 
026276 
026300 


105777 
100011 
117746 
042716 
022726 
001002 
000167 
000207 


153452 


000004 
000014 
000002 
000002 


153270 
000004 
026310 
177752 


152542 
152536 
177600 
000003 


154164 
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000004 
000004 


000004 





SEQ 0071 


a -ASCIZ <200>/UNEXPECTED TRAP TO VECTOR 4 FROM../ 


ERROUT: 


FLAG: 
CKADR: 


CNTLC: 


1$: 


RO,-CSP) 
START 


4(SP), @@ERRVEC 
FLAG 


2(SP),4(SP) 
(SP),2(SP) 


R2,-(SP) 
DEVAD,R2 
S@ERRVEC, -(SP) 


#ERROUT , PERRVEC 


FLAG 
(R2) 


(SP)+ 
R2,(SP)+ 
PC 


8$TKS 

1$ 

8$TKB, -CSP) 
#*C177,(SP) 
#3 ,(SP)+ 

1$ 

ROUT3 

PC 





+sSAVE RO FOR TYPEOUT 
+3GO TYPE--OCTAL ASCIICALL DIGITS) 


sADJUST STACK 


3PS 
3PC 


sSAVE R2 

sDEVICE ADDRESS IN R2 

sSAVE OLD TRAP ADDRESS 
sNEW TRAP ADDRESS 

sINITIALIZE FLAG 

sIS ADDRESS ADDRESSABLE? 


sRESTORE OLD TRAP ADDRESS 
sRESTORE R2 


IS CHAR THERE? 

sNO_ RETURN 

sPUT CHAR ON STACK 
sSTRIP OFF UNWANTED BITS 
sIS IT CONTROL C? 

sNO RETURN 

:GO TO START AGAIN 





-MAIN. 
USER ROUTINES 


—— 
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027020 


005267 
012277 


000001 
153010 


153002 


152774 
153116 
020201 


152750 
153734 


177514 
027246 


001100 
000340 
000670 
000300 
177777 
027212 
177777 
003041 


000702 


000232 


000224 
000222 
027040 
027212 
177777 
000144 
000152 


000402 


151176 
153014 


152276 
152266 
152260 


177776 


000250 
000246 
000236 
000234 


000204 
000166 
000156 


‘ 

sCHECK OUT NPR LINE ON THE SWITCH BUS 
; 

TSTNPR : 


3365$: 
64$: 


33678: 
66$: 
NPR: 


7$: 


PASS 
NUM 
.65$ 


64$ 
<200>/TEST NPR LINE ON SWITCH BUS/ 


.67$ 
66% 


<200>/TYPE CONTROL C T0 EXIT/<200> 


PC,CNTLC 
NUM 


#3 ,BRCNT 
@BRLV,R2 
#STACK ,SP 


#20201, GOOD 


acsrR 
ROUT3 


PC ,CNTLC 
cette 


@STACK ,SP 
340 ,8OPSW 

PC ,CLRREG 
BUFF 1 
#177777, 8BEBD 
#BUFF1,@BEBA 
#177777, 8BECC 
#3041, 9BECR1 


PC ,,CRDY 


BUFF 1+2 
#3$,@INTVEC 
#BUFF1,8BEBA 
#177777, 8BECC 
BRCNT 

(R2)+, BBECR1 












SEQ 0072 


sCLEAR PASS COUNT 

sCLEAR NUM 

ssTYPE ASCIZ STRING 
3sGET OVER THE ASCIZ 


ss TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


sIS IT CONTROL C? 

sCOUNT NUMBER OF ITERATION 
sCOUNTER FOR BR LEVEL 
sPOINTER TO BRLEVEL TABLE 
sRESTORE STACK 

sDROP PRIORITY 

sCONNECT 

sCONNECTED? 

;BR IF YES 

sTIME OUT? 

sBR IF NOT 

sSTORE CONTENT OF CSR 


‘ 
sSTORE GOOD DATA 
sCOUNTN' T CONNECT 
sCLEAR CSR 


HIS IT END OF TABLE? 
;YES:BR 

sRESTORE STACK 

;LOCK OUT INTERRUPT 
;CLEAR ALL UBE REGISTER 
;CLEAR BUFF LOCATION 
sLOAD UBE DATA REG WITH TEST DATA 
sLOAD UBE ADDRESS REG WITH BUFF ADR 
;SET UBE TO DO ONE CYCLE 

sHAVE UBE SEND DATA VIA NPR 

sALLOW UBE TO SET BUS 

sCHECK READY SET 

;DID RDY SET? 

sBRANCH TO ERROR IF RDY DION'T SET 
sWAS DATAO DONE? 

sBRANCH TO ERROR IF NPR NOT DONE 
;CLEAR BUF LOCATION 

;CLEAR BUF LOCATION PLUS 2 
sSETUP FOR INTERRUPT 

;LOAD TEST ADDRESS 

;SETUP UBE TO DO i CYCLE 
;COUNT BR LEVEL 

sHAVE UBE DO DATO NPR+INT 





SS ae a en 
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USER ROUTINES SEQ 0073 
2441 sWHEN DONE VIA DIFF BR LEVEL 
2442 3;BR LEVEL s (4,5.6,7) 
2443 027024 005037 177776 CLR 8ePSW sALLOW UBE TO INTERRUPT 
2444 027030 004767 000616 JSR PC ,CRDY sWAIT FOR INTERRUPT OR READY TO SET 
2445 027034 104025 ERROR+25 
nae? 027036 000443 BR 4$ sRESTORE TRAP 
2448 027040 005767 000150 3$: TST BUFF 1i+2 s;DID NPR WRITE MORE THAN ONE LOC? 
2449 027044 001440 BEQ 4$ 3GO TO END OF TEST 
24S0 027046 104026 ERROR+26 
ease 027050 000436 BR 4$ 
2453 027052 104024 1$: ERROR+24 sERROR:NPR DION'T SET RDY 
2454 027054 012777 006003 000114 MOV #6003, @BECR1 sHAVE UBE SET ITS READY 
2455 027062 005037 177776 CLR BePSW ; 

2456 027066 004767 000560 JSR PC ,CRDY sWAIT TILL SET 
2457 027072 000425 BR 4$ sRESTORE TRAP 
2458 027074 104023 2s: ERROR+23 

2459 027076 000423 BR 4$ 

2460 027100 S$: 

2461 027100 022767 001750 000060 CMP #1000. ,NUM 

2462 027106 001013 BNE 11$ 

2463 027110 005267 000046 INC PASS 

2464 027114 104401 027560 TYPE »ENDMG 

2465 027120 016746 000036 MOV PASS, -(SP) 

2466 027124 104405 TYPDS 

2467 027126 104401 027555 TYPE eNULL 

2468 027132 005067 000030 CLR NUM 

2469 027136 004767 000466 11$: JSR PC,RCATCH 

ode 027142 000167 177376 JMP NPR 

2472 027146 004767 000456 4$: JSR PC,RCATCH sRESTORE TRAP 
2473 027152 004767 177220 JSR PC ,CNTLC i 

2474 027156 000167 177474 JMP 8$ F 

2475 

2476 

2477 027162 000000 PASS 0 

2478 027164 000090 BRCNT: 0O 

2479 027166 900000 NUM: 0 

2480 027170 170000 BEBD: -WORD 170000 

2481 027172 170002 BECC: -WORD 170002 

2482 027174 170004 BEBA: -WORD 170004 

2483 027176 170006 BECRi: .WORD 170006 

2484 027200 170010 BECR2: .WORD 170010 

2485 027202 170014 BERE: -WORD 170014 

2486 027204 000510 INTVEC: .WORD 510 

2487 027206 000000 i+) 

2488 027210 000000 0 

2489 

2490 027212 BUFF1: .BLKW 11 

2491 027234 000000 0 

2492 

2493 027236 003143 BRLV: 3143 sDATO AT BR4 
2494 027240 003145 3145 ;DATO AT BRS 
2495 027242 003151 3151 sDATO AT BRE 
2496 027244 003161 3161 ;DATO AT BR7 
2497 027246 000000 BREND: 0 


-— 





-MAIN. 
USER ROUTINES 


-— 


2 
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2500 027252 


2501 


2502 


2503 


2504 


027255 


027507 





2498 027250 000000 
499 









SEQ 0074 
0 
122 EM23:  .ASCIZ /ERROR:NPR DATO NOT DONE/ 


4 EM24: -ASCIZ /ERROR:NPR DID NOT SET RDY/ 


122 EM25: -ASCIZ /ERROR:UBE DID NOT INTERRUPT WHEN NPR FINISHED/ 


a4 EM26: -ASCIZ /ERROR: TWO LOC WRITTEN WHEN ONE NPR AND INT ON DONE ENABLE/ 


122 EM27: .ASCIZ /ERROR:DEVICE DOESN'T EXIST ON SWITCH BUS/ 





. MAIN . 
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USER ROUTINES 


027512 
027515 
027520 
027523 
027526 
027531 
027534 
027537 
027542 
027545 
027550 
027553 


027555 


027576 
027576 
027602 
027606 
027612 
027616 
027622 
027626 


027630 
027632 
027636 
027640 
027644 
027646 
027650 


027652 
027654 
027656 


005077 
005077 
005077 
005077 
005077 
005077 
000207 


019346 
916705 
005725 
010577 
005015 
012605 
000207 


005004 
005005 
005205 


177400 
177372 
177364 
177356 
177350 
177342 


177346 
177340 





SEQ 0075 


NULL : -BYTE -1,-1,0 sNULL CHARACTER STRING 
ENDMG: .ASCIZ <15><12>/END PASS @/ 


-EVEN 
sSUBROUTINE TO TYPE PC OF ERROR MESSAGE 
; TERRPC: BIT @SW13, 8SWR sINHIBIT ERROR PRINT OUT 
: BNE a sBRANCH IF YES 
; TYPE »MSG15 sTYPE PC OF ERROR MESSAGE 
; MOV SERRPC, -(SP) sSAVE $ERRPC FOR TYPEOUT 


; 
318: RTS Pc 
s;SUBROUTINE TO CLEAR ALL UBE REG 


CLRREG: 
CLR @BERE ;CLEAR ERROR CONDITION 
CLR @BECR2 ;CLEAR BECR2 REG 
CLR @BECRi ;CLEAR BECR1 REG 
CLR SBEBA ;CLEAR BEBA REG 
CLR SBECC ;CLEAR BECC REG 
CLR @BEBD ;CLEAR BEBD REG 
RTS PC 
;SUBROUTINE TO RESTORE TRAP CATCHER TO UBE VECTOR AREA 
RCATCH: MOV R5,-(CSP) sSAVE RS ON STACK 
MOV INTVEC,RS ;GET INTVEC 
TST CR5)+ sCALCULATE INTVEC+2 
MOV RS ,@INTVEC 3;PUT INTVEC+2 IN INTVEC 
CLR CRS) sPUT HALT IN INTVEC+2 
MOV (SP)+,R5 sRESTORE RS 
RTS PC 


sSUBROUTINE TO CHECK RDY BIT SET 


CRDY: CLR R4 
CLR RS 
2$: INC RS sUPDATE COUNTER 





-MAIN. 


i. 


2546 027660 


2547 027664 
2548 027666 
2549 027672 
2550 027674 
2551 027700 
2552 





105777 
100405 
032705 
001771 
012704 
000207 


177312 
000200 
000001 
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USER ROUTINES 


1$: 


S@BECR1 
1$ 
#200,RS 
2$ 
#1,R4 
PC 


;SEE IF RDY SET 

sBRANCH IF SET 

3 WAITED> LOOMICROSEC 

sCONTINUE TO LOOK FOR RDY IF RS NOT=128 
;SET R4=1 TO INDICATE ERROR 

sRETURN 


SEQ 0076 








-MAIN. 


2556 
2557 






105767 


151251 


000002 
000001 


000100 


000004 
000220 


000040 


000002 
000011 
000200 


000130 


000056 
151114 
151104 
000001 


000032 
000072 
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USER ROUTINES 


151276 
151267 


151245 











SEQ 0077 






-NLIST MC,MD,CND 

-SBTTL TYPE ROUTINE 

5 § OOOO 666S 000000 6600600000000 00 00000000000000000000000000080000008 
s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
s#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 








s#NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
s#NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
s#NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 





s*CALL: 
3#1) USING A TRAP INSTRUCTION 
TYPE »MESADR ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



























3 
$TYPE: TSTB $TPFLG 33IS THERE A TERMINAL? 
BPL 1$ 33;8R IF YES 
HALT 3;HALT HERE IF NO TERMINAL 
BR 33 3; sLEAVE 
i$: MOV RO, -CSP) 33:SAVE RO 
MOV @2(SP),RO 33GET ADDRESS OF ASCIZ STRING 
CMPB @APTENV, SENV ssRUNNING IN APT MODE 
BNE 62% 33NQO,GO CHECK FOR APT CONSOLE 
BITS @APTSPOOL, $ENVM ;;SPOOL MESSAGE TO APT 
BEQ 62$ 33NO,GO CHECK FOR CONSOLE 
MOV RO,61$ ssSETUP MESSAGE ADDRESS FOR APT 
JSR PC, $ATY3 3sSPOOL MESSAGE TO APT 
61: -WORD 0 3sMESSAGE ADDRESS 
62%: BITB @APTCSUP,$ENVM ;;APT CONSOLE SUPPRESSED 
BNE 60$ 3sYES,SKIP TYPE OUT 
2%: MOVB CRO)+, -CSP) 3sPUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ 33BR IF IT ISN'T THE TERMINATOR 
TST (SP)+ ssIF TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO ssRESTORE RO 
3$: ADD @2,(SP) 3sADJUST RETURN PC 
RTI 3 sRETURN 
4$: —_ a +sBRANCH IF <HT> 
a > eatcnaae 3sBRANCH IF NOT <CRLF> 
TST (SP)+ 33POP <CR><LF> EQUIV 
TYPE 33TYPE A CR AND LF 
$CRLF 
CLRB $CHARCNT 3;CLEAR CHARACTER COUNT 
BR 2s 33GET NEXT CHARACTER 
5$: JSR PC, $TYPEC 33GO TYPE THIS CHARACTER 
6%: CMPB $FILLC,(CSP)> 3sIS IT TIME FOR FILLER CHARS.? 
BNE 23 33IF NO GO GET NEXT CHAR. 
MOV $NULL, -(SP) 3sGET @ OF FILLER CHARS. NEEDED 
3sAND THE NULL CHAR. 
78: OECB 1(SP) 3;D0ES A NULL NEED TO BE TYPED? 
BLT 6$ 338R IF NO--GO POP THE NULL OFF OF STACK 
JSR PC, $TYPEC 3:GO TYPE A NULL 
DECB $CHARCNT 3:00 NOT COUNT AS A COUNT 






BR 7$ 3 sLOOP 
sHORIZONTAL TAB PROCESSOR 
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TYPE ROUTINE 


112716 000040 ssREPLACE TAB WITH SPACE 
000014 : PACE 
000007 


3sPOP SPACE OFF STACK 
BR 2 3sGET NEXT CHARACTER 
151030 : it ssWAIT UNTIL PRINTER IS READY 


000002 151022 2(SP), 89 TPB ssLOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 CMPB @CR, 2(SP) 33IS CHARACTER A CARRIAGE RETURN? 

is +sBRANCH IF NO 
000014 $CHARCNT ss YES--CLEAR CHARACTER COUNT 

$TYPEX ssEXIT 
000012 : CMPB @LF ,2(SP) ssIS CHARACTER A LINE FEED? 

$TYPEX ssBRANCH IF YES 

CPC)+ ssCOUNT THE CHARACTER 

$6 ssCHARACTER COUNT STORAGE 
$TYPEX: RTS 


PC 
-SBTTL APT COMMUNICATIONS ROUTINE 
§ § OOOOO60660 660060060006 00000000000000000000000008000000000000008 
112767 $ATY1: MOVB #1,$FFLG s3TO REPORT FATAL ERROR 
112767 sATY3: #1, $MFLG 3sTO TYPE A MESSAGE 
000403 BR $ATYC 
112767 $ATY4: #1,$FFLG 33TO ONLY REPORT FATAL ERROR 


$ATYC: 
RO,-C(SP) 3sPUSH RO ON STACK 
R1,-CSP) 3sPUSH R1 ON STACK 
$MFLG ssSHOULD TYPE A MESSAGE? 
5$ 33IF NOT: BR 

150776 @APTENV, SENV ssOPERATING UNDER APT? 

BNE 33 33IF NOT: BR 

150767 @APTSPOCL, $ENVM ;;SHOULD SPOOL MESSAGES? 
33 33IF NOT: BR 
84(SP),.RO 3sGET MESSAGE ADOR. 

000004 ADD 2 ,.4(SP) 3sBUMP RETURN ADDR. 
$MSGTYPE 3sSEE IF DONE W/ LAST XMISSION? 
1s ssIF NOT: WAIT 
RO, $MSGAD 3sPUT ADOR IN MAILBOX 
CRO)+ ssFIND END OF MESSAGE 


ae 

#MSGAD ,RO 3sSUB START OF MESSAGE 

RO ssGET MESSAGE LNGTH IN WORDS 
RO, $MSGLGT ssPUT LENGTH IN MAILBOX 
aden ssTELL APT TO TAKE MSG. 


3sPUT MSG ADDR IN JSR LINKAGE 
33BUMP RETURN ADDRESS 

33PUSH 177776 ON STACK 

ssCALL TYPE MACRO 


ssSHOULD REPORT FATAL ERROR? 
ssIF NOT: BR 

ssRUNNING UNDER APT? 

ssIF NOT: GR 

ssFINISHED LAST MESSAGE? 
ssIF NOT: WAIT 
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APT COMMUNICATIONS ROUTINE 


2559 


030432 
030434 
030442 
030444 
030446 
030450 
030452 
030454 
030456 
030460 
030462 
030464 
030466 
030470 
030472 
030474 
030476 
030500 
030504 
030506 
030510 
030512 
030516 
030522 
030524 
030526 
030530 
039532 
2560 


000004 150616 


MOV G4(SP),SFATAL 3;GET ERROR @ 

AOD @2,4(SP) 3sBUMP RETURN ADOR. 

INC SMSGTYPE ss TELL APT TO TAKE ERROR 
12$: CLRB sFFLG ssCLEAR FATAL FLAG 

CLRB $LFLG ssCLEAR LOG FLAG 

CLRB $MFLG ssCLEAR MESSAGE FLAG 


MOV (SP)+,R1 ssPOP STACK INTO Ri 
MOV (SP)+,RO 33POP STACK INTO RO 
RTS PC 3s sRETURN 
SMFLG: .BYTE 3sMESSG. FLAG 
$LFLG: .BYTE 33LOG FLAG 
$FFLG: .BYTE s3sFATAL FLAG 
-CVEN 
AP SIZE=200 
APTENV=001 
APTSPOOL =100 
AP TCSUP=040 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
5 § OO OOO6 06 0666004000006 06 000604604660606000004004 4444 004000000444444 
s*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


ooo 


000004 


177770 


000012 
000910 





s#CHANGE IT TO BINARY. 


3*CALL: 

3* RDOCT 

34 RETURN HERE 

3* 

sRDOCT: MOV (SP),-CSP) 

000002 MOV 4(SP),2(SP) 

MOV RO, -(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 

i$: ROLIN 
MOV (SP)+,RO 
CLR Ri 
CLR R2 

2s: MOVB (RO)+, -CSP) 
BEQ 3$ 
ASL Ri 
ROL R2 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
BIC #*C7,(SP) 
ADD (SP)+,R1 
BR 2s 

3$: TST (SP)+ 


MOV R1,12(SP) 
MOV R2,$HIOCT 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTI 

$HIOCT: .WORD 0 

-SBTTL TTY INPUT ROUTINE 


3;READ AN OCTAL NUMBER 

+;LOW ORDER BITS ARE ON TOP OF THE STACK 
+sHIGH ORDER BITS ARE IN $HIOCT 
3sPROVIDE SPACE FOR THE 
3:INPUT NUMBER 

3sPUSH RO ON STACK 

3s;PUSH R1 ON STACK 

3;PUSH R2 ON STACK 

3sREAD AN ASCIZ LINE 

3;GET ADDRESS OF 1ST CHARACTER 
3;CLEAR DATA WORD 


ssPICKUP THIS CHARACTER 
— ZERO GET OUT 
i 


3344 
3348 


3sSTRIP THE ASCII JUNK 

3:;ADD IN THIS DIGIT 

3;LOOP 

3;CLEAN TERMINATOR FROM STACK 
+;SAVE THE RESULT 


3:POP STACK INTO R2 

::POP STACK INTO R1 

3:;POP STACK INTO RO 

3; ;RETURN 

;sHIGH ORDER BITS GO HERE 


5 § SSSEEREEAEEAASEAEEESSAEASRSAASASEREAESEAEKSASELAARELESEALEELLESE 


-ENABL LSB 


5 F SHREEKSEEEEEASASEEESAEEASARASEARELRASEARESAAAERRALEARERASEARALEE 







SEQ 0079 
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TTY INPUT ROUTINE 


030750 
030754 
030756 
030762 
030766 
030770 
030772 
030774 
039776 
031002 
031006 
031010 
031014 


000176 
150374 
150370 
177600 
000007 
150340 
031261 
031266 
147362 


031277 


150312 
150306 
177600 
000025 


031254 
000006 


000015 


001203 
150213 


000100 


177152 
000060 


000067 


000060 
000002 


000002 
177776 


001202 





s@SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 


s@SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
s@WHEN OPERATING IN TTY FLAG MODE. 
150376 SCKSUR: cmMP WR 


000001 


SGTSWR: 


19%: 


7$: 


93: 


20$: 
10$: 


150232 


11$: 
14$: 


000001 
150210 


15$: 
16$: 


17$: 


18%: 


— Ss 


#*C177,(SP) 
@7,(SP)-+ 


@$TKB, -( SP) 
#*C177,(SP) 
a 


2(SP), @SWR 
#6 ,SP 


» $CRLF 
SINTAG, #1 
15$ 

#100 ,8$TKS 


PC, $TYPEC 
(SP), #60 
18$ 


-2(SP),(SP) 
7$ 


. $QUES 
20$ 


ssIS THE SOFT-SWR SELECTED? 
:sBRANCH IF NO 

33sCHAR THERE? 

33IF NO, DON'T WAIT AROUND 
3sSAVE THE CHAR 

ssSTRIP-OFF THE ASCII 

33IS IT A CONTROL G? 

+3NO, RETURN TO USER 

3sARE WE RUNNING IN AUTO-MODE? 
:sBRANCH IF YES 

3s;ECHO THE CONTROL-G (tG) 

3; TYPE CURRENT CONTENTS 

3s;SAVE SWREG FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
3sPROMPT FOR NEW SWR 

3;CLEAR COUNTER 

33THE NEW SWR 

33;CHAR THERE? 

33IF NOT TRY AGAIN 

3sPICK UP CHAR 

3sMAKE IT 7-BIT ASCII 

33IS IT A CONTROL-U? 

: BRANCH IF NOT 

33YES, ECHO CONTROL-U (tU) 
3sIGNORE PREVIOUS INPUT 
3;LET'S TRY IT AGAIN 

33;IS IT A <CR>? 

;;BRANCH IF NO 

33;YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 

;;SAVE NEW SWR 

3;CLEAR UP STACK 

3sECHO <CR> AND <LF> 
3;RE-ENAGLE TTY KBD INTERRUPTS? 
;:;BRANCH IF NOT 

3;RE-ENABLE TTY KBD INTERRUPTS 
3; ;RETURN 

:;ECHO CHAR 

3:CHAR < 0? 

;;BRANCH IF YES 

3;CHAR > 7? 

;;BRANCH IF YES 
:;STRIP-OFF ASCII 

33IS THIS THE FIRST CHAR 
;;BRANCH IF YES 

33NO, SHIFT PRESENT 

33 CHAR OVER TO MAKE 
33 ROOM FOR NEW ONE. 
3;KEEP COUNT OF CHAR 
3;SET IN NEW CHAR 

3;GET THE NEXT ONE 

3s TYPE ?<CR><LF> 
+sSIMULATE CONTROL-U 











SEQ 0080 
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—— 


031016 
031020 
031026 
031032 
031034 
031042 
031050 
031056 
031060 
031064 
031066 
031072 
031076 
031102 
031104 
021106 
031114 
031116 
031124 
031126 
031134 


031136 
031140 
031144 
031150 
031152 
031154 
031156 
031162 
031164 
031170 
031172 
031176 
031202 
031206 
031210 
031214 
031220 
031222 
031224 
031232 
031240 
031242 


010346 
012703 
022703 
101405 
104410 
112613 
122713 
001003 
104401 
000763 
111367 
104401 
122723 
001356 
105063 
104401 
012603 
011646 
016666 
012766 
000002 

000 


000004 
150112 


150106 
177600 
000004 
150060 
150054 
177600 
000021 
000004 
000004 


000040 


031244 
031254 


000177 
001202 
000044 
031242 
000015 
177777 
001204 


000004 
031244 





000002 


000004 
000004 
000023 


000140 
000175 
000004 


000002 
000004 


-DSABL 


} POSER ASRAEEEASESEEEEESEEEEEEEEAEREEEEEEEEEEREREEEEEEEEEEEREEEEE 
s*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ssINPUT A SINGLE CHARACTER FROM THE TTY 
ssCHARACTER IS ON THE STACK 
ssWITH PARITY BIT STRIPPED OFF 


+;PUSH DOWN THE PC 
33;SAVE THE PS 


s@CALL: 


2s: 


3$: 


4$: 


:#CALL: 


9$: 


LSB 


ROCHR 
RETURN HERE 


: MOV (SP),-CSP) 
MOV 4(SP),2(SP) 
TSTB asTKS 


1$ 
MOVB @$TKB,4(SP) 
BIC @tC<177> ,4(SP) 
CMP aah ae 
$ 


BNE 
TSTB asTKS 
BPL 2$ 


MOVB @$TKB, -( SP) 
BIC #*C177,(SP) 
cmMP or eee 


RTI 


ROLIN 
RETURN HERE 


: MOV R3,-(SP) 
MOV @STTYIN,R3 
CMP OSTTYINeS. ,R3 


BLOS 4s 


MOVB (SP)+,(R3) 
CMPB oo 


MOV (SP)+, R3 

MOV (SP),-(SP) 
MOV 4(SP),2¢SP) 
MOV @STTYIN, 4(SP) 


-BYTE 0 


1$ 
cmMP oo 
CMP ee 
$ 
BIC #40,4(SP) 


+sWAIT FOR 


33A CHARACTER 

3sREAD THE TTY 

3s;GET RID OF JUNK IF ANY 
3:IS IT A CONTROL-S? 
;;BRANCH IF NO 

s;WAIT FOR A CHARACTER 
+;LOOP UNTIL ITS THERE 
+3;GET CHARACTER 

3sMAKE IT 7-BIT ASCII 
33I1S IT A CONTROL-Q? 
3:IF NOT DISCARD IT 
3;YES, RESUME 

3:IS IT UPPER CASE? 

- 3 3BRANCH IF YES 

3318S IT A SPECIAL CHAR? 
;;BRANCH IF YES 

3sMAKE IT UPPER CASE 
::GO BACK TO USER 

§ PHRRERAAAERSSAEEAEEAAEEAEAAREESARAREARAEERERRARSEEAEESEAEE EERE 
3#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


ssINPUT A STRING FROM THE TTY 
ssADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
ss TERMINATOR WILL BE A BYTE OF ALL O'S 


3sSAVE R3 


3;GET ADDRESS 
;sBUFFER FULL? 


33BR IF YES 


+3GO READ ONE CHARACTER FROM THE TTY 
3;GET CHARACTER 

33IS IT A RUBOUT 

3sSKIP IF NOT 


33s TYPE A ‘?° 


;s;CLEAR THE BUFFER AND LOOP 
+sECHO THE CHARACTER 


3;CHECK FOR RETURN 

3;LOOP IF NOT RETURN 

;;CLEAR RETURN (THE 15) 

3; TYPE A LINE FEED 

+sRESTORE R3 

+sADJUST THE STACK AND PUT ADDRESS OF THE 
$3 FIRST ASCII CHARACTER ON IT 


;sRETUR 


N 
ssSTORAGE FOR ASCII CHAR. TO TYPE 
















SEQ 0081 
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031243 
031244 
031254 
031257 
031261 
031264 
031266 
031271 
031274 
031277 
031302 
031305 


031310 
031314 
031322 
031326 
031332 
031334 
031342 
031350 
031356 
031360 
031362 
031364 
031370 
031372 
031376 
031402 
031406 
031412 
031414 
031416 
031429 
031422 





000000 
000001 
000207 
000002 


000001 
000006 
000005 


000145 


000006 
000132 
000125 
000012 





000211 


000171 
000165 
000154 


$TTYIN: 
$CNTLU: 


SCNTLG: 
$MSWR: 


SMNEW: 


-BYTE 
-BLKB 
-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


0 

8. 

/tU/<15><12> 
/*G/<15><12> 
<15><12>/SWR = / 


/ NEW = / 


+3 TERMINATOR 
ssRESERVE 8 BYTES FOR TTY INPUT 
ss;CONTROL “U” 


+sCONTROL "G” 


-SBTTL BINARY TO OCTAL CASCII) AND TYPE 

WELT t Tri ititiiiiiriiiittittttt titi tt tty 
s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s#OCTAL CASCII) NUMBER AND TYPE IT. 


;#$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:*CALL: 


NUM, -C SP) 


;sNUMBER TO BE TYPED 
3s;CALL FOR TYPEOUT 
:sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
33M=1 OR O 
331=TYPE LEADING ZEROS 
3:0=SUPPRESS LEADING ZEROS 


3#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s#$TYPOS OR $TYPOC 


:*CALL: 


NUM, -CSP) 


;sNUMBER TO BE TYPED 
+sCALL FOR TYPEOUT 


34 
;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;*CALL: 
3* 


3* 
$TYPOS: 


$TYPOC: 
$TYPON: 


1s: 
2$: 


NUM, -( SP) 


aC SP), -(SP) 
1(SP), $OFILL 
(SP)+, $OMODE +1 
#2,(SP) 
$TYPON 

#1, $OF ILL 
#6, $SOMODE+1 
#5, $OCNT 
R3,-(SP) 
R4,-CSP) 
RS,-CSP) 
$OMODE +1,R4 
R4 

6 .R4 

R4, $OMODE 
SOFILL .R4 
12(SP),R5 


s;sNUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 
3sPICKUP THE MODE 

3sLOAD ZERO FILL SWITCH 
;sNUMBER OF DIGITS TO TYPE 
+sADJUST RETURN ADDRESS 


3;SET THE ZERO FILL SWITCH 

3;SET FOR SIX(6) DIGITS 

33SET THE ITERATION COUNT 

3;SAVE R3 

;3;SAVE R4 

3;SAVE RS 

;;GET THE NUMBER OF DIGITS TO TYPE 


;;SUBTRACT IT FOR MAX. ALLOWED 
3sSAVE IT FOR USE 

3sGET THE ZERO FILL SWITCH 
;sPICKUP THE INPUT NUMBER 
3s;CLEAR THE OUTPUT WORD 
+sROTATE MSB INTO “C” 

;3;GO DO MSB 

:+3FORM THIS DIGIT 













SEQ 0082 
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031424 
031426 
031430 
031432 
031436 
031440 
031444 
031446 
031450 
031452 
031454 
031460 
031464 
031470 


.031474 


031500 
031502 
031504 
031506 
031510 
031512 
031514 
031516 
021524 
031526 
031530 
031531 
031532 
031533 
031534 


031536 
031536 
031540 
031542 
031544 
031546 
031550 
031554 
031560 
031562 
031564 
031572 
031574 
031600 
031604 
031606 
031612 





006105 
010503 


160105 





000076 
177770 


000060 
000040 
000040 
031530 
000032 


000002 000004 


020200 
000020 
000055 000001 


031752 
000040 


031742 


ROL RS 
MOV RS,.R3 
3$: ROL R3 3;GET LSB OF THIS DIGIT 
DECB $OMODE 3s TYPE THIS DIGIT? 
BPL 7$ +36R IF NO 
BIC #177770,R3 +;GET RID OF JUNK 
BNE 4$ 3sTEST FOR O 
TST R4 3;SUPPRESS THIS 0? 
BEQ S$ 3;BR IF YES 
4$: INC R4 3;DON'T SUPPRESS ANYMORE 0'S 
BIS #'0,R3 3sMAKE THIS DIGIT ASCII 
S$: BIS @' ,R3 +sMAKE ASCII IF NOT ALREADY 
MOVB R3,8$ 3;SAVE FOR TYPING 
TYPE .8$ 33GO TYPE THIS DIGIT 
7$: DECB $GCNT 3;COUNT BY 1 
BGT 2$ 3;BR IF MORE TO DO 
BLT 6$ :;6R IF DONE 
INC R4 +sINSURE LAST DIGIT ISN’T A BLANK 
BR 2$ +:GO DO THE LAST DIGIT 
6$: MOV (SP)+,R5 :sRESTORE RS 
MOV (SP)+,R4 :sRESTORE R4 
MOV (SP)+,R3 :sRESTORE R3 


MOV 2(SP),4(SP) 33SET THE STACK FOR RETURNING 
MOV (SP)+,(SP) 
RTI ; sRETURN 


8$: -BYTE 0 ssSTORAGE FOR ASCII DIGIT 
-BYTE 0 3s TERMINATOR FOR TYPE ROUTINE 

SOCNT: .BYTE 0 ss;OCTAL DIGIT COUNTER 

SOFILL: .BYTE 0 3sZERO FILL SWITCH 


SOMODE: .WORD 0 ssNUMBER OF DIGITS TO TYPE 

-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

HEE chaaslachatndeechecpeedecnchtepcindeahdibid hho Lt teLitT LLL LT iT iT itt tt tt 
s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s*#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
s#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;#REPLACED WITH SPACES. 


:*CALL: 
;* MOV NUM, -( SP) 3sPUT THE BINARY NUMBER ON THE STACK 
3* TYPDS 3:GO TO THE ROUTINE 
$TYPDS: 
MOV RO,-(SP) 3sPUSH RO ON STACK 
MOV R1,-CSP) ;sPUSH R1 ON STACK 
MOV R2,-C(SP) 3;PUSH R2 ON STACK 
MOV R3,-C(SP) 3;PUSH R3 ON STACK 
MOV RS,-CSP) 3;PUSH RS ON STACK 
MOV #20200, -(SP) +;SET BLANK SWITCH AND SIGN 
MOV 20(SP),RS :;GET THE INPUT NUMBER 
BPL i$ ;:;8R IF INPUT IS POS. 
NEG R5 ;sMAKE THE BINARY NUMBER POS. 
MOVB #'-,10SP) 3sMAKE THE ASCII NUMBER NEG. 
1$: CLR RO 3;ZERO THE CONSTANTS INDEX 
MOV #$DBLK ,R3 3;SETUP THE OUTPUT POINTER 
MOVB #' = ,CR3)+ 3:SET THE FIRST CHARACTER TO A BLANK 
2s: CLR R2 3;CLEAR THE BCD NUMBER 
MOV $DTBLCRO),R1 3:GET THE CONSTANT 
3$: SUB R1,R5 +;FORM THIS BCD DIGIT 


















SEQ 0083 
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BINARY 


031614 
031616 
031620 
031622 
031624 
031626 
031630 
031632 
031634 
031636 
031640 
031646 
031652 
031656 
031660 
031662 
031666 
031670 
031672 
031674 
031676 
031700 
031702 
031710 
031712 
031714 
031716 
031720 
031722 
031724 
031730 
031736 
031740 
031742 
031744 
031746 
031750 
031752 


031762 
031762 
031764 
031772 
031776 
032000 
032006 





104407 
116767 
105267 
001775 
016777 
032777 





177777 


000010 


177777 =177776 


031752 


000002 000004 


147112 147640 


147105 


147076 
002000 


147134 
147124 


4$: ADD 


S$: ASLB 


6$: BIS 
7$: BIS 


8$: TSTB 


9$: CLRB 


$DTBL: 


10 


$0BLK: .BLKW 


9$ 
-1(SP),-2(R3) 
(R3) 


CSP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
C(SP)+,RO 

. $0BLK 
2(SP),4(SP) 
(SP)+, (SP) 


4 


-SBTTL ERROR HANDLER ROUTINE 
jj SRRRSREREREEEREREE EEE EEEREREEEE DEES EDEEEE SEES REED EERE EERE EEE 
s#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

s#AND GO TO $ERRTYP ON ERROR 
s*#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3*SW1i5=1 
3*SW13=1 
3*SW10=1 
3*SWO9=1 
3#CALL 


7% 
SERROR: 


7$: INCB 


HALT ON ERROR 


3;BR IF DONE 
ssINCREASE THE BCD DIGIT BY 1 


+;ADD BACK THE CONSTANT 

3;CHECK IF BCD DIGIT=0 

3;FALL THROUGH IF 0 

+sSTILL DOING LEADING 0'S? 

3;6R IF YES 

33MSD? 

33;BR IF NO 

+s YES--SET THE SIGN 

3sMAKE THE BCD DIGIT ASCII 

ssMAKE IT A SPACE IF NOT ALREADY A DIGIT 
3sPUT THIS CHARACTER IN THE OUTPUT BUFFER 
33JUST INCREMENTING 

3;CHECK THE TABLE INDEX 

3:3GO DO THE NEXT DIGIT 

33:GO TO EXIT 

3:;GET THE LSD 

33GO CHANGE TO ASCII 

3;WAS THE LSD THE FIRST NON-ZERO? 
3;B8R IF NO 

3; YES--SET THE SIGN FOR TYPING 
3;SET THE TERMINATOR 

33POP STACK INTO RS 

3:POP STACK INTO R3 

3:POP STACK INTO R2 

3;POP STACK INTO Ri 

3:POP STACK INTO RO 

3:;NOW TYPE THE NUMBER 

ssADJUST THE STACK 


+sRETURN TO USER 


INHIBIT ERROR TYPEOUTS 


BELL ON ERROR 
LOOP ON ERROR 


N ;sERROR=EMT AND N=ERROR ITEM NUMBER 


$TSTNM, TSTNUM 
wie 


$TSTNM, @DISPLAY 


#B1T10,9SWR 


3; TEST FOR CHANGE IN SOFT-SWR 

sSET UP TEST # ON ERROR 

3s3SET THE ERROR FLAG 

;;D0N'T LET THE FLAG GO TO ZERO 
;sDISPLAY TEST NUMBER AND ERROR FLAG 
;sBELL ON ERROR? 





SEQ 0084 
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032177 


032200 
032200 
032204 
032210 
032210 
032216 
032220 
032226 
032232 
032233 
032234 
032236 
032242 
032244 
032246 
032250 
032256 
032260 
032264 
032270 
032272 
032276 


r-— 


001402 
104401 
005267 
011667 
162767 
117767 
032777 
001055 
021627 
101046 


016667 
162767 
104401 
016746 
104402 
104401 
162716 
011667 


004767 
104401 


122767 


016716 


147024 
147016 


147010 
000004 


146662 
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18: 


10$: 
11$: 


12$: 


20$: 


21$: 
22$: 


2s: 


3$: 


4$: 


BEQ i$ 

TYPE » $BELL 

INC SERTTL 

MOV CSP), $ERRPC 
SUB #2, $ERRPC 
MOVB GSERRPC, $I TEMB 
BIT #B81T13,QSWR 
BNE 208 

CMP (SP), #1002 
BHI 12$ 

3sPROCESS UNEXPECTED TRAP OR INT 

MOV 4(SP), $ERRPC 
SUB #2, $ERRPC 
TYPE .10$ 
MOV SERRPC, -(SP) 
TYPOC 

TYPE .11$ 

SUB #4 ,(SP) 
MOV (SP), $ERRPC 
MOV SERRPC, -(SP) 
TYPOC 

TYPE . $CRLF 

CMP (SP)+,(SP)+ 
BR 20$ 

-ASCIZ <200>'PC= ' 
ASCIZ 

EVEN 

JSR PC, $ERRTYP 
TYPE » $CRLF 
CMPB @APTENV, SENV 
BNE 2$ 
MOVB SITEMB ,21$ 
JSR PC, $ATY4 
-BYTE 0 

-BYTE 0 
BR 22$ 

TST 8SWR 
BPL 3$ 
HALT 
CKSWR 
BIT #BITO9,ASWR 
BEQ 43 
MOV $LPERR , (SP) 
TST $ESCAPE 
BEQ 5$ 
MOV SESCAPE, (SP) 


5$: 






ssNO - SKIP 

ssRING BELL 

:sCOUNT THE NUMBER OF ERRORS 

3sGET ADDRESS OF ERROR INSTRUCTION 


ssSTRIP AND SAVE THE ERROR ITEM CODE 


ssSKIP TYPEOUT IF SET 

3sSKIP TYPEOUTS 

ssIF RETURN PC LESS THAN 1002 
ssERROR IS ILLEGAL TRAP 

ERRUPT 

ssGET PC AT TIME OF FALSE TRAP 
ssADJUST PC 

ss TYPE HEADER 

ssSAVE $ERRPC FOR TYPEOUT 

3sGO TYPE--OCTAL ASCIICALL DIGITS) 


3sGET FALSE TRAP VECTOR ADDR 


ssSAVE SERRPC FOR TYPEOUT 
3:GO TYPE--OCTAL ASCIICALL DIGITS) 


3sPOP FALSE TRAP VECTOR PCEADDR 


‘ UNEXPECTED TRAP TO ' 





+3GO TO USER ERROR ROUTINE 


+sRUNNING IN APT MODE 

3sNO,SKIP APT ERROR REPORT 

+3SET ITEM NUMBER AS ERROR NUMBER 
ssREPORT FATAL ERROR TO APT 


;3;APT ERROR LOOP 

;;HALT ON ERROR 

3sSKIP IF CONTINUE 

ssHaLT ON ERROR! 

3s TEST FOR CHANGE IN SOFT-SWR 
3s;LOOP ON ERROR SWITCH SET? 
336R IF NO 

ssFUDGE RETURN FOR LOOPING 
3sCHECK FOR AN ESCAPE ADDRESS 
33BR IF NONE 

ssFUDGE RETURN ADDRESS FOR ESCAPE 








ed 
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032276 

032304 

032306 

032310 

032310 
2564 


032312 
032312 
032316 
032320 
032322 
032326 


032330 


032334 
032336 
032340 
032342 
032344 
032346 
032350 
032354 
032360 
032362 
032364 
032366 
032372 
032376 
032400 
032402 
032404 
032410 
032412 
032414 
032416 
032422 
032424 
032424 
032426 
032430 
032432 
032434 
032440 
032442 


2565 


—— 


022737 
001001 
000000 


000002 


021416 000042 


001203 


001114 


146562 


001332 
000004 


001203 
000004 


001203 


001203 


032442 
040 


000 





CMP @$ENDAD, 8042 ssACT-11 AUTO-ACCEPT? 
BNE 6$ +;BRANCH IF NO 
HALT 33 YES 


6$: 

RTI : sRETURN 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
§ PERRERAEEAESESEREESEEEEEESEEEREEESESEREEEEEEEEESEEEEREREEREREES 
s*THIS ROUTINE USES THE "ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 
s#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” C$ERRTB), 
s#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE . $CRLF 33 "CARRIAGE RETURN” & “LINE FEED” 
MOV RO,-CSP) +;SAVE RO 
CLR RO 3sPICKUP THE ITEM INDEX 
BISB OeSITEMB RO 
BNE is 33IF ITEM NUMBER IS ZERO, JUST 


ss TYPE THE PC OF THE ERROR 
MOV SERRPC, -(SP) ssSAVE $ERRPC FOR TYPEOUT 
ssERROR ADDRESS 


TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
BR 6$ 3;GET OUT 
1$: DEC RO +sADJUST THE INDEX SO THAT IT WILL 
ASL RO 33 WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #$ERRTB,RO 7:FORM TABLE POINTER 
MOV (RO)+,2$ ssPICKUP "ERROR MESSAGE” POINTER 
BEQ 3$ 3;SKIP TYPEQUT IF NO POINTER 
TYPE 3; TYPE THE “ERROR MESSAGE” 
2$: -WORD 0 33 "ERROR MESSAGE” POINTER GOES HERE 
TYPE » $CRLF 33 "CARRIAGE RETURN” & “LINE FEED” 
3$: MOV (RO)+,4$ +sPICKUP “DATA HEADER” POINTER 
BEQ 5$ 3;SKIP TYPEOUT IF 0 
TYPE 3sTYPE THE “DATA HEADER” 
4$: -WORD O 3;"DATA HEADER” POINTER GOES HERE 
TYPE . $CRLF 33 "CARRIAGE RETURN” & “LINE FEED” 
5$: MOV (RO),RO +sPICKUP “DATA TABLE” POINTER 
BNE 7$ 3:;GO TYPE THE DATA 
6$: MOV (SP)+,RO ;sRESTORE RO 
TYPE » $CRLF 33 "CARRIAGE RETURN” & “LINE FEED” 
‘ RTS PC 3 sRETURN 
7$: 
MOV @CRO)+,-CSP) +sSAVE 8C(RO)+ FOR TYPEOUT 
TYPOC 3:GO TYPE--OCTAL ASCIICALL DIGITS) 
TST CRO) 3:IS THERE ANOTHER NUMBER? 
BEQ 6$ ;:;BR IF NO 
TYPE ,8$ +3 TYPE TWOC2) SPACES 
BR 7$ ssl 
8$: -ASCIZ / / 3;TWOC2) SPACES 
EVEN 


-SBTTL SCOPE HANDLER ROUTINE 
EE ct daclaetadedehdndetpibieibi bate biti ti potttitt titi t litt itt ttt TTT ttt 
s#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;#AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
s#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
s*#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3#SW14=1 LOOP ON TEST 





SEQ 0086 
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— 
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032446 
032446 


032450 
032454 
032456 
032462 
032470 


032472 


032474 
032500 
032506 
032512 
032516 
032520 
032522 


032722 


104407 


021627 
101002 
000167 
032777 
001114 


000416 


013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 


032777 
001404 
127767 
001465 
105767 


016777 


001002 


177300 
040000 


000004 
032520 
177060 
000004 


000004 


000400 
146374 
146327 
146333 
001000 
146306 


146271 
146354 


004000 
146360 


146242 
146324 


000001 
000052 
146210 
146204 
146202 
146200 
146260 
000001 
146154 





146450 


000004 


146402 
146334 


146317 
146344 
146302 


146312 


146234 


146224 
146304 


146312 


146173 
146212 


3*#SWil=1 
3*SWO09=1 


” eKsW 


INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWR<7:0> 
3: SCOPE=IOT 


3sTEST FOR CHANGE IN SOFT-SWR 


R 
33GO TO ERROR ROUTINE IF RETURN pC LESS THAN 1002 
——— CONTINUE 


BHI 
JMP 
1$: BIT 


BNE 
3 @OOOSTART 
$XTSTR: BR 


5$: CMP 


6$:;@00@END OF 


2$: TSTB 


7$: MOV 
4$;: CLRB 


3$: BIT 


1$: MOV 
$SVLAD: 


SOVER: MOV 


+ edaatataa 


SERROR 
#BIT14,QSWR 
$OVER 


SPERRVEC, -(SP) 
#53, B@ERRVEC 
84177060 
(SP)+, @@ERRVEC 
$SVLAD 
(SP)+,(SP)+ 
laa QERRVEC 


+sUNEXPECTED TRAP OR INTERRRUPT 
+sARE TRAPPED HERE VIA IOT 

+3GO PROCESS UNEXPECTED TRAP 
ssLOOP ON PRESENT TEST? 

33YES IF SWi4*1 


OF — FOR THE XOR TESTERCOOO 


3;IF RUNNING ON THE "XOR” TESTER CHANGE 
+;THIS INSTRUCTION TO A “NOP” (NOP=240) 
+sSAVE THE CONTENTS OF THE ERROR VECTOR 
+sSET FOR TIMEOUT 
ssTIME OUT ON XOR? 
; sRESTORE THE ERROR VECTOR 
+3GO TO THE NEXT TEST 
ssCLEAR THE STACK AFTER A TIME OUT 
ey Hy THE ERROR VECTOR 

sLOOP ON THE PRESENT TEST 


CODE FOR THE XOR TESTER@GOOS 


-~ ita -9SWR 

SSWR, $TSTNM 
$OVER 

sERFLG 

3$ 

en rs 
$ 

~ ‘riba 
$LPERR, $LPADR 
$OVER 


SERFLG 
$TIMES 


1$ 
#B1T11,9SWR 
1$ 


$ICNT 
$TIMES , $ICNT 
sOVER 


#1,$ICNT 
$MXCNT, $TIMES 
$TSTNM 
$TSTNM, $TESTN 
(SP), $LPADR 
(SP), $LPERR 
SESCAPE 

#1, $ERMAX 


$TSTNM, DISPLAY ;;DISPLAY TEST NUMBER 


3;LOOP ON SPEC. TEST? 
;;BR IF NO 

330N THE RIGHT TEST? 
3;BR IF YES 

3sHAS AN ERROR OCCURRED? 
3;BR IF NO 

+sMAX. ERRORS FOR THIS TEST OCCURRED? 
;;BR IF NO 

;:;LOOP ON ERROR? 

3;B8R IF NO 

3;SET LOOP ADDRESS TO LAST SCOPE 


33ZERO THE ERROR FLAG 

3;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
+;ESCAPE TO THE NEXT TEST 

ss;INHIBIT ITERATIONS? 

;;BR IF YES 

3;IF FIRST PASS OF PROGRAM 

33 INHIBIT ITERATIONS 

;;INCREMENT ITERATION COUNT 

3;CHECK THE NUMBER OF ITERATIONS MADE 
33BR IF MORE ITERATION REQUIRED 
+sREINITIALIZE THE ITERATION COUNTER 
3;SET NUMBER OF ITERATIONS TO 00 
+;COUNT TEST NUMBERS 

3;SET TEST NUMBER IN APT MAILBOX 
+;SAVE SCOPE LOOP ADDRESS 

+;SAVE ERROR LOOP ADDRESS 

;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
+;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 


SWR<7:0> 


SEQ 0087 
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2566 


2567 


2568 
2569 
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032730 
032734 
032736 


032740 
032746 
032754 


033012 
033020 
033024 


016716 
000002 
003720 


012737 


012737 
016706 
005067 
005267 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 


146152 


033104 
000340 


146144 
000110 
033012 


146076 


032740 
000340 


000024 
000026 


000024 


000024 


000024 
000026 


$MXCNT: 


MOV 
RTI 
2000. 


$LPADR , (SP) ssFUDGE RETURN ADDRESS 
ssFIXES PS 


3sMAX. NUMBER OF ITERATIONS 


-SBTTL POWER DOWN AND UP ROUTINES 
Eh duchecachcnehcetedaecpteetedbee ath thet ttt Litt ttt tt iti titi t ttt Tt TTT TTT ty 


sPOWER DOWN ROUTINE 


$PWRON: 


MOV 


$ILLUP,@@PWRVEC ;;SET FOR FAST UP 
340 ,Q@PWRVEC+2 ;;PRIO:7 


RO,-C(SP) 3s;PUSH RO ON STACK 
R1,-CSP) 33PUSH R1 ON STACK 
R2,-CSP) 3;PUSH R2 ON STACK 
R3,-CSP) +:PUSH R3 ON STACK 
R4,-C(SP) 33PUSH R4 ON STACK 
RS,-CSP) 33PUSH RS ON STACK 
OSWR,-C(SP) +:;PUSH OSWR ON STACK 
SP , $SAVR6 :3SAVE SP 
@$PWRUP, BOPWRVEC + SET UP VECTOR 

--2 +:HANG UP 


5 SPREE EREAESAEEEEEES ERE EEESEE SESE EERE EEEEEEEDEREEEEEEEREREE EES 
sPOWER UP ROUTINE 


$PWRUP : 


1$: 


$SAVRE: 
PWRMSG: 


-EVEN 


MOV 


-ASCIZ 


@$ILLUP, A@PWRVEC 1 = FAST DOWN 


$SAVR6, SP 33;GET 

$SAVR6 3;WAIT LOOP FOR THE TTY 
$SAVR6 3;WAIT FOR THE INC 

i$ 3:0F WORD 

(SP)+,@SWR 3:POP STACK INTO @SWR 
(SP)+,R5 +3POP STACK INTO RS 
(SP)+,R4 3;POP STACK INTO R4 
(SP)+,R3 3;POP STACK INTO R3 
(SP)+,R2 3;POP STACK INTO R2 
(SP)+,R1 33PQP STACK INTO R1 
(SP)+,RO +:POP STACK INTO RO 


O$PWRON, SePWRVEC ;;SET " THE POWER DOWN VECTOR 
#340, QOPWRVEC+2 33PRIO:7 
+;REPORT THE POWER FAILURE 


PWRMSG ;sPOWER FAIL MESSAGE POINTER 
(PC)+, (SP) ssRESTART AT RESTRT 
RESTRT ssRESTART ADDRESS 
+; THE POWER UP SEQUENCE WAS STARTED 
--2 + our ta THE POWER DOWN WAS COMPLETE 
T THE SP HERE 


<15>12>/RESTARTED FROM POWER FAIL/ 


-SBTTL TRAP DECODER 
5 § OO6O66 660606666046 06 06 50 06046 066000060000000000604000000000 00404 


s*#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 








SEQ 0088 





an 
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033146 
033150 
033154 
033156 
033160 
033162 
033166 


033170 
033172 
033200 


010046 
016600 
005740 
111000 
006300 
016000 
000200 


011646 
016666 
000002 


033170 
027702 
031334 
031310 
031350 
031536 
030604 
030534 
031016 
031136 
030432 


000002 


033202 


000004 000002 


000066 
000060 
177771 


000042 


000032 
001057 


047401 
000016 


s#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
s#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 







3#GO TO THAT ROUTINE. 


STRAP: 


$TRAP2: 


MOV 
MOV 
RTI 


0 
nn 
33THIS IS USE TO HANDLE THE “GETPRI” MACRO 


4(SP),2(SP) 


-SBTTL TRAP TABLE 


s#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;*BY THE “TRAP” 


; 
$TRPAD: . 


T 
-SBTTL RANDOM NUMBER GENERATOR ROUTINE 
j § ROROESOEOE ESOS 640606000000 0604 00000000000000000000000000 0800008 
s#THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
s#WITH A RANGE OF O TO 2(+33)-1. 


;*CALL: 


1$: 


ROUTINE 


JSR 
RETURN 


INSTRUCTION. 


$TRAP2 
:sCALL=TYPE 
;;CALL=TYPOC 
3;CALL=TYPOS 
3;CALL=TYPON 
3;CALL=TYPDS 
3;CALL=GTSWR 
3;CALL=CKSWR 
3;CALL=ROCHR 
3;CALL=ROLIN 
3;CALL=RDOCT 


PC, $RAND 


RO, -(SP) 


R 
$HINUM ,R1 
#1057,R0 
R1 


#47401,R1 
RO, $LONUM 


SEQ 0089 


3:SAVE RO 

3;GET TRAP ADDRESS 
3s;BACKUP BY 2 

+;GET RIGHT BYTE OF TRAP 
+sPOSITION FOR INDEXING 
:s:INDEX TO TABLE 

33GO0 TO ROUTINE 


+sMOVE THE PC DOWN 
7:;MOVE THE PSW DOWN 
+sRESTORE THE PSW 








TRAP+1(104401) TTY TYPEOUT ROUTINE 

TRAP +2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TRAP +4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
TRAP +S(104405) TYPE DECIMAL NUMBER (WITH SIGN) 

TRAP +6(104406) GET SOFT-SWR SETTING 

TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 

TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 

TRAP +11(104411) TTY TYPEIN STRING ROUTINE 

TRAP +12(104412) READ AN OCTAL NUMBER FROM TTY 


ssCALL THE ROUTINE 
ssRETURN HERE THE RANDOM 
ssNUMBER WILL BE IN 

33 SHINUM, $LONUM 


3sPUSH RO ON STACK 

3;PUSH R1 ON STACK 

33PUSH R2 ON STACK 

33SET RO WITH LOW 

3;SET Ri WITH HIGH 

33:SET SHIFT COUNT 

3;SHIFT RO LEFT AND 
3sROTATE CARRY INTO Ri AND 
3sCHECK FOR DONE 
;sCONTINUE SHIFT LOOP 
3;ADD NUMBER TO MAKE X 129 
:sPROPOGATE CARRY 

33;ADD NUMBER TO MAKE X 129 
3:;AD0D0 LOW CONSTANT 
3sPROPOGATE CARRY 

3;ADD HIGH CONSTANT 

3sSAVE RO 
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033312 010167 000010 R1, $HINUM ssSAVE Ri 

033316 (SP)+,R2 3sPOP STACK INTO R2 
033320 (SP)+,R1 3sPOP STACK INTO R1 
033322 (SP)+,RO ssPOP STACK INTO RO 
033324 PC 

033326 $HINUM: .WORD 176543 

033330 $LONUM: .WORD 123456 


+ sRETURN 
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-SBTTL ASCII MESSAGES 
-ASCIZ /POST-RESET CONDITIONS NOT MET IN CSR./ 


SREAD/WRITE BIT FAILURE IN CSR.« 


/BYTE ACCESS FAILURE IN CSR./ 


/ERROR IN CONNECT PROCESS. / 


/INTERUPT DETECTED WITH INTERUPT ENABLE CLEARED. / 
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033571 114 105 040 
033574 103 114 105 


0 
2579 033605 103 117 125 EM6: -ASCIZ /COULD NOT CONNECT./ 


2580 033630 105 122 122 EM?: -ASCIZ /ERROR IN RELEASE PROCESS. / 


2581 033662 116 117 040 €M10: -ASCIZ /NO INTERUPT DETECTED./ 


2582 033710 111 116 124 EMi1: -ASCIZ /INTERUPT AT WRONG PRIORITY. / 


2583 033744 103 117 116 EM12: -ASCIZ /CONNECT CONDITION FAILURE./ 


2584 033777 105 122 122 EM13: -ASCIZ /ERROR IN CONNECT FAILURE PROCESS. / 


-— 
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2585 


2586 


2587 


2588 


2589 


MACRO M1200 24-MAY-85 11:37 PAGE 47-2 
ASCII MESSAGES 


034035 


034275 


123 
000 
105 
117 
111 
122 





122 €M14: .ASCIZ /ERROR IN RELEASE TEST WITHOUT BUSS MASTERSHIP./ 


114 EM15: .ASCIZ /RELEASE CONDITIONS NOT MET./ 


117 EM16: -ASCIZ /TMO BIT NOT SET./ 


125 EM17:  .ASCIZ sCOULDN’T READ/WRITE EXTERNAL DEVICE.# 


123 EM20: -ASCIZ /RESET HOLD (HLD) DION‘T DISABLE RESET. / 





SEQ 0093 


(Se ne etna So eee 
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034300 105 040 122 
034303 105 123 105 
034306 124 056 000 
2590 034311 122 105 123. EM21: .ASCIZ /RESET (RST) DIDN'T WORK./ 
034314 105 124 040 
034317 050 122 123 
034322 124 051 040 
034325 104 111 104 
034330 116 047 124 
034333 040 127 117 
034336 122 113 056 
034341 000 
2591 034342 124 110 105 EM22: -ASCIZ /THE OPERATION OF THE RESET-IN-NEUTRAL HAS CHANGED. / 
034345 040 117 120 
034350 105 122 101 
034353 124 111 117 
034356 116 040 117 
034361 106 040 124 
034364 110 105 040 
034367 122 105 123 
034372 105 124 oss 
034375 111 116 oss 
034400 116 105 125 
024403 . 124 122 101 
034406 114 040 110 
034411 101 123 040 
034414 103 110 101 
034417 116 107 105 
034422 104 056 000 
2592 034425 040 000 SPACE: .ASCIZ / / 
2593 034427 200 060 O75 SELMS: .ASCII <200>/0=THIS MESSAGE/ 
034432 124 110 111 
034435 123 040 115 
034440 105 123 123 
034443 101 107 105 
2594 034446 200 061 075 -ASCII <200>/1=MONOPORT TEST/ 
034451 115 117 116 
034454 117 120 117 
034457 122 124 040 
034462 124 105 123 
034465 124 
2595 034466 200 062 075 -ASCII <200>/2=MULTIPORT TEST/ 
034471 115 125 114 
034474 124 111 120 
034477 117 i22 124 
034502 040 124 105 
034505 123 124 
2596 034507 200 063 075 -ASCII <200>/3=MANUAL INTERVENTION TEST/ 
034512 115 101 116 
034515 125 101 114 
034520 040 111 116 
034523 124 105 122 
034526 126 105 116 
034531 124 111 117 
034534 116 040 124 
034537 105 123 124 
2597 034542 200 064 075 -ASCIZ <200>/4=TEST NPR LINE/ 





-MAIN. 
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—— 


ie) 
2598 


ie) 
2599 


2600 


2601 
2602 


2603 
2604 
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034545 


035002 
035005 





123 
116 
040 
116 


OH1: 


OH2: 


OH3: 


DH4: 





-ASCII /ERROR TEST@ SHOULD WAS FROM/<200> 


-ASCIZ /PC BE/ 


-ASCII /ERROR TEST@® WROTE READ DEVICE ADDRESS/<200> 


-ASCIZ /PC/ 
-ASCII /ERROR TEST#® BITS FAILING RESET DEVICE ADDRESS/<200> 


-ASCIZ /PC/ 
-ASCII /ERROR TEST#@ RESET READ DEVICE ADDRESS/<200> 







SEQ 0095 
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2605 035026 120 103 040 -ASCIZ /PC BITS/ 


2606 035052 105 122 122 DHS: -ASCII /ERROR/<200> 
035055 117 122 200 
2607 035060 040 120 103 -ASCIZ / PC / 
035063 040 000 
2608 035065 105 122 122 DH6: -ASCII /ERROR BR/<200> 


2609 035107 040 120 103 -ASCIZ / PC LEVEL/ 


035131 114 000 

2610 -EVEN 

2611 035134 001116 001632 001124 ODT1: SERRPC, TSTNUM, GOOD ,,BAD ,BADA,O 
035142 001126 001122 000000 

2612 035150 001116 001632 001640 ODT2: SERRPC , TSTNUM, DEVRW,BAD,DEVAD,0O 
035156 001126 001636 000000 

2613 035164 001116 001632 001126 DTS: SERRPC , TSTNUM, BAD, DEVAD,0 
035172 001636 000000 


2614 035176 001116 000000 DT4: SERRPC,O 
2615 035202 001116 027164 000000 DTS: SERRPC ,BRCNT ,O 
2616 002612 -END ROUT3 


-— 





ar ee ee 
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SYMBOL TABLE 

ABASE = 177420 BECR1 027176 DHS 035052 FUNCT4 012076 * 
ACOW1 = 000000 BECR2 027200 DH6 035065 FUNCTS 012374 = 
ACOW2 = 000000 BERE 027202 DISPAT 007722 GETADR 024010 . 
ACPUOP= 000000 BITO = 000001 DISPLA 001142 GOOD = 001124 ad 
ADDWO = 000000 BITOO = 000001 DISPRE 000174 GTSWR = 104406 = 
ADDW1 = 000000 BITO1 = 000002 OMODE 022754 HT = 000011 * 
ADDW10= 000000 BITO2 = 000004 DSWR = 177570 INTVEC 027204 = 
ADDW11= 000000 BITO3 = 000010 OTIME 023316 I0T = 000004 

ADDW12= 000000 BITO4 = 000020 DTOS 001634 IOTVEC= 000020 

ADDW13= 000000 BITOS = 000040 OT1 - 035134 KIPARO= 172340 

ADDW14= 000000 BITO6 = 000100 DT2 035150 KIPAR1= 172342 

ADDW1S= 000000 BITO7 = 000200 OT3 035164 KIPAR2= 172344 

ADDW2 = 000000 BITO8 = 000400 OT3SP 014760 KIPAR3= 172346 

ADDW3 = 000000 BITO9 = 001000 OT4 035176 KIPAR4= 172350 

ADDW4 = 000000 BIT1 = 000002 OTS 035202 KIPARS= 172352 

ADDWS = 000000 BIT10 = 002000 ECHOB 026206 KIPAR6= 172354 

ADDW6 = 000000 BIT11 = 004000 EMT == 104000 KIPAR7= 172356 

ADDW7 = 000000 BIT12 = 010000 EMTVEC= 000030 KIPORO= 172300 

ADDWS = 000000 BIT13 = 020000 EM1 033332 KIPOR1= 172302 

ADDW9 = 000000 BIT14 = 040000 EM10 033662 KIPOR2= 172304 

ADEVCT= 000000 BIT1S = 100000 EM11 033710 KIPOR3= 172306 

ADEVM = 000000 BIT2 = 000004 EM12 033744 KIPOR4= 172310 

AENV = 000000 BITS = 000010 EM13 033777 KIPORS= 172312 

AENVM = 000000 BIT4 = 000020 EM14 034041 KIPOR6= 172314 

AFATAL= 0CO0000 BITS = 000040 EM15 034120 KIPOR7= 172316 

AMADR1i= 000000 BIT6 = 000100 EM16 034154 KONST 001752 

AMADR2= 000000 BIT7 = 000200 —EM17 034175 LF = 000012 

AMADR3= 000000 BIT8 = 000400 EM2 033400 MANEND 021256 

AMADR4= 000000 BIT9 = 001000 EM20 034242 MANIN 015056 

AMAMS1= 000000 BPTVEC= 000014 EM21 034311 MANMOD 015074 

AMAMS2= 000000 BRCNT 027164 EM22 034342 MASMEN 022206 

AMAMS3= 000000 BREND 027246 EM23 027252 MASTER 007740 

AMAMS4= 000000 BRLV 027236 EM24 027302 MENU 001676 

AMSGAD= 000000 BUFF1 027212 EM25 027334 MMVEC = 000250 

AMSGLG= 000000 CKADR 026340 EM26 027412 MONEND 007544 

AMSGTY= 000000 CKSWR = 104407 —EM27 027504 MONPRT 002676 

AMTYP1= 000000 CLRREG 027576 EM3 033437 MULOT3 012540 

AMTYP2= 000000 CNTILC 026376 EM4 033473 MULEND 015014 

AMTYP3= 000000 CONID 021510 EMS 033525 MULPRT 007556 

AMTYP4= 000000 CONNEC 021452 EM6 033605 NEXENT 001674 

APASS = 000000 COVID 001730 EM7 033630 NPR 026544 

APRIOR= 000000 CR = 000015 ENDMG 027560 NULL 027555 

APTCSU= 000040 CRDY 027652 ERREN = 017510 NUM 027166 

APTENV= 000001 CRLF = 000200 ERROR = 104000 ONOFF 001744 

APTSIZ= 000200 CSR 001622 ERROUT 026310 oops 022600 

APTSPO= 000100 CURFUN 001722 ERRVEC= 000004 PARFLG 026204 

ASWREG= 000000 CURID 001724 EXPEND 001654 PARIN 024534 

ATESTN= 000000 cycu 001726 EXPRT1 001646 PASS 027162 

AUNIT = 000000 DDISP = 177570 EXPRT2 001650 PFVSEV 017746 

AUSWR = 000000 DEVAD 001636 EXPRT3 001652 PIRQ = 177772 

AVECT1i= 160350 DEVCON 001754 EXPTCT 001656 PIRQVE= 000240 

AVECT2= 000000 DEVRC 001642 FLAG 026336 PORTNO 001644 

BAD = 001126 DEVRW 001640 FLUSHM 022702 POSTSV= 020564 

BADA = 001122 DH1 034563 FLUSHP 022724 PRI 001630 

BEBA 027174 DH2 034626 FUNCT1 010164 PRO = 000000 

BEBD 027170 DH3 034677 FUNCT2 010660 PRI = 000040 

BECC 027172 DH4 034760 FUNCT3 011706 PR2 = 000100 
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SYMBOL TABLE 

SWREG 000176 TSTi2 005530 
SWO = 000001 TSTi3 005710 
SWOO = 000001 TSTi4 006154 
SWO1 = 000002 TSTiS 006546 
SWwO2 = 000004 TST16 =. 006702 
SWOS3 = 000010 TST17 007050 
SWO4 = 000020 TST2 003152 
swoS = TST3 003404 
SWO6 = 000100 TST4 003524 
SWO7 = 000200 TSTS 003760 
SWO8 = 000400 TST6 004242 
SWO9 = 001000 TST7 004550 
Swi = T™ 026212 
SW10 = 002000 TYPOS = 104405 
SWil = 004000 TYPE = 104401 
SWi2 = 010000 TYPOC = 104402 
SWi3 = 020000 TYPON = 104404 
SW14 = 040000 TYPOS = 104403 
SWiS = 100000 USEPAR 001760 
SW2 = 000004 VECO 001624 
SW3 == 000010 vEC2 001626 
SW4 = =_: 000020 WAIT 021600 
SWS == 000040 WAITOS 021566 
SW6 == 000100 WAIT1O 021540 
SW7 == 0C0200 WAIT20 021552 
SWB == 000400 $APTHD 001000 
SW9 == 001000 $ATYC 030210 
SYNCUP 021642 $ATY1 030164 
TABM 012526 $ATY3 030172 
TBITVE= 000014 $ATY4 030202 
TEMP1 001732 $AUTOB 001134 
TEMP2 002674 $BASE 001262 
TICK 021636 $BDADR 001122 
TIMA 001746 $BDDAT 001126 
TIMB 001750 $BELL 001176 
TKVEC = 000060 $COW1 001266 
TOCK 021640 sCDW2 001270 
TPVEC = 000064 $CHARC 030160 
TRAPVE= 000034 $CKSWR 030534 
TRAP4 026222 $CMTAG 001100 
TRIG 021564 $CM3_ = 000000 
TRIN 001756 $CM4 = 000005 
TRTVEC= 000014 SCNTLG 031261 
TSTNPR 026430 SCNTLU 031254 
TSTNUM 001632 $CPUOP 001234 
TST1 003060 $CRLF 001203 
TST10 005032 $DBLK 031752 
TSTi1 005240 $D0W0 001272 
- ABS. 035210 000 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 51568 WORDS ( 202 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 10.15: 

CROTAC ,CROTAC/ -:r* ~re0. FC .MLB/ML, CROTAC.P11 





$HIOCT 


001274 
001316 
001320 
001322 


030532 


$RDOCT 
$RDSZ = 









021430 


= 001000 





